/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Hyper / F / fractal2.cpt / fractal2.a

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 66 72 61 63 74 61 | 6c 32 2e 61 00 00 00 00 |..fracta|l2.a....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 2f e8 00 | 00 01 7e 9d b4 d6 7d 9d |...../..|..~...}.|
|00000060| b4 d6 7d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..}.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 51 9b 00 00 |........|....Q...|
|00000080| 3b 0d 3b 09 66 72 61 63 | 74 61 6c 20 78 63 6d 64 |;.;.frac|tal xcmd|
|00000090| 20 76 30 2e 33 20 2d 2d | 20 44 6f 75 67 20 46 65 | v0.3 --| Doug Fe|
|000000a0| 6c 74 2c 20 4f 63 74 20 | 31 34 2c 20 31 39 38 37 |lt, Oct |14, 1987|
|000000b0| 0d 3b 09 0d 3b 09 54 68 | 69 73 20 64 72 61 77 73 |.;..;.Th|is draws|
|000000c0| 20 61 20 66 72 61 63 74 | 61 6c 20 6f 6e 20 74 68 | a fract|al on th|
|000000d0| 65 20 73 63 72 65 65 6e | 2e 20 20 4e 6f 74 20 74 |e screen|.  Not t|
|000000e0| 6f 20 74 68 65 20 63 61 | 72 64 2c 20 79 65 74 2e |o the ca|rd, yet.|
|000000f0| 20 20 46 75 6e 63 74 69 | 6f 6e 20 69 73 0d 3b 09 |  Functi|on is.;.|
|00000100| 66 28 7a 29 20 3d 20 7a | 20 2a 20 7a 20 2b 20 63 |f(z) = z| * z + c|
|00000110| 2c 20 6a 75 6c 69 61 20 | 73 65 74 20 6d 61 70 70 |, julia |set mapp|
|00000120| 65 64 20 74 6f 20 34 20 | 70 61 74 74 65 72 6e 73 |ed to 4 |patterns|
|00000130| 2e 0d 3b 09 0d 3b 09 46 | 6f 72 6d 61 74 3a 0d 3b |..;..;.F|ormat:.;|
|00000140| 09 09 20 46 72 61 63 74 | 61 6c 20 73 65 65 64 2e |.. Fract|al seed.|
|00000150| 68 20 73 65 65 64 2e 76 | 20 5b 72 65 73 20 3d 20 |h seed.v| [res = |
|00000160| 38 20 5b 6c 69 6d 69 74 | 20 3d 20 33 32 20 5b 6c |8 [limit| = 32 [l|
|00000170| 6f 63 6b 20 3d 20 30 5d | 5d 5d 0d 3b 09 09 20 0d |ock = 0]|]].;.. .|
|00000180| 3b 09 73 65 65 64 20 69 | 73 20 74 68 65 20 63 6f |;.seed i|s the co|
|00000190| 6d 70 6c 65 78 20 63 6f | 6e 73 74 61 6e 74 20 63 |mplex co|nstant c|
|000001a0| 20 28 76 20 69 6d 61 67 | 69 6e 61 72 79 29 0d 3b | (v imag|inary).;|
|000001b0| 09 72 65 73 20 69 73 20 | 74 68 65 20 6e 75 6d 62 |.res is |the numb|
|000001c0| 65 72 20 6f 66 20 70 69 | 78 65 6c 73 20 6f 6e 20 |er of pi|xels on |
|000001d0| 61 20 73 69 64 65 20 66 | 6f 72 20 74 68 65 20 70 |a side f|or the p|
|000001e0| 6f 69 6e 74 20 74 6f 20 | 70 6c 6f 74 20 0d 3b 09 |oint to |plot .;.|
|000001f0| 6c 69 6d 69 74 20 69 73 | 20 74 68 65 20 6d 61 78 |limit is| the max|
|00000200| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 72 61 | number |of itera|
|00000210| 74 69 6f 6e 73 20 28 62 | 65 73 74 20 62 65 74 77 |tions (b|est betw|
|00000220| 65 65 6e 20 31 36 20 26 | 20 31 32 38 2c 20 6d 75 |een 16 &| 128, mu|
|00000230| 6c 74 69 70 6c 65 20 6f | 66 20 34 29 2c 0d 3b 09 |ltiple o|f 4),.;.|
|00000240| 6c 6f 77 65 72 20 6c 69 | 6d 69 74 20 6d 65 61 6e |lower li|mit mean|
|00000250| 73 20 6d 6f 73 74 20 63 | 6f 6d 70 6c 65 78 20 72 |s most c|omplex r|
|00000260| 65 67 69 6f 6e 73 20 6f | 66 20 74 68 65 20 66 72 |egions o|f the fr|
|00000270| 61 63 74 61 6c 20 61 72 | 65 20 77 68 69 74 65 0d |actal ar|e white.|
|00000280| 3b 09 69 66 20 6c 6f 63 | 6b 20 69 73 20 30 2c 20 |;.if loc|k is 0, |
|00000290| 70 72 65 73 73 69 6e 67 | 20 74 68 65 20 6d 6f 75 |pressing| the mou|
|000002a0| 73 65 20 77 69 6c 6c 20 | 69 6d 6d 65 64 69 61 74 |se will |immediat|
|000002b0| 65 6c 79 20 73 74 6f 70 | 20 74 68 65 20 64 72 61 |ely stop| the dra|
|000002c0| 77 69 6e 67 2c 20 6f 74 | 68 65 72 77 69 73 65 0d |wing, ot|herwise.|
|000002d0| 3b 09 70 72 65 73 73 69 | 6e 67 20 74 68 65 20 6d |;.pressi|ng the m|
|000002e0| 6f 75 73 65 20 68 61 73 | 20 6e 6f 20 65 66 66 65 |ouse has| no effe|
|000002f0| 63 74 20 61 6e 64 20 64 | 72 61 77 69 6e 67 20 63 |ct and d|rawing c|
|00000300| 61 6e 20 6f 6e 6c 79 20 | 62 65 20 73 74 6f 70 70 |an only |be stopp|
|00000310| 65 64 20 62 79 20 72 65 | 62 6f 6f 74 20 6f 72 0d |ed by re|boot or.|
|00000320| 3b 09 66 61 6e 63 79 20 | 6d 61 63 73 62 75 67 20 |;.fancy |macsbug |
|00000330| 77 6f 72 6b 2e 0d 3b 20 | 20 20 0d 3b 09 44 6f 75 |work..; |  .;.Dou|
|00000340| 67 20 46 65 6c 74 2c 20 | 41 49 52 2f 43 41 54 20 |g Felt, |AIR/CAT |
|00000350| 50 72 6f 6a 65 63 74 0d | 3b 09 64 75 67 67 69 65 |Project.|;.duggie|
|00000360| 40 6a 65 73 73 69 63 61 | 2e 73 74 61 6e 66 6f 72 |@jessica|.stanfor|
|00000370| 64 2e 65 64 75 0d 3b 0d | 3b 09 0d 3b 09 54 6f 20 |d.edu.;.|;..;.To |
|00000380| 63 6f 6d 70 69 6c 65 20 | 61 6e 64 20 6c 69 6e 6b |compile |and link|
|00000390| 20 69 6e 20 4d 50 57 20 | 43 3a 0d 3b 0d 3b 09 43 | in MPW |C:.;.;.C|
|000003a0| 20 2d 71 32 20 46 72 61 | 63 74 61 6c 2e 63 0d 3b | -q2 Fra|ctal.c.;|
|000003b0| 09 6c 69 6e 6b 20 2d 73 | 6e 20 4d 61 69 6e 3d 46 |.link -s|n Main=F|
|000003c0| 72 61 63 74 61 6c 20 2d | 73 6e 20 53 54 44 49 4f |ractal -|sn STDIO|
|000003d0| 3d 46 72 61 63 74 61 6c | 20 b6 0d 3b 09 09 20 2d |=Fractal| ..;.. -|
|000003e0| 73 6e 20 49 4e 54 45 4e | 56 3d 46 72 61 63 74 61 |sn INTEN|V=Fracta|
|000003f0| 6c 20 2d 72 74 20 58 43 | 4d 44 3d 31 30 34 20 b6 |l -rt XC|MD=104 .|
|00000400| 0d 3b 09 09 20 2d 6d 20 | 46 52 41 43 54 41 4c 20 |.;.. -m |FRACTAL |
|00000410| 46 72 61 63 74 61 6c 2e | 63 2e 6f 20 22 7b 43 4c |Fractal.|c.o "{CL|
|00000420| 69 62 72 61 72 69 65 73 | 7d 43 52 75 6e 54 69 6d |ibraries|}CRunTim|
|00000430| 65 2e 6f 22 20 b6 0d 3b | 09 09 20 2d 6f 20 48 79 |e.o" ..;|.. -o Hy|
|00000440| 70 65 72 43 6f 6d 6d 61 | 6e 64 73 0d 3b 0d 3b 0d |perComma|nds.;.;.|
|00000450| 3b 09 09 57 65 6c 6c 20 | 6e 6f 77 2c 20 49 20 74 |;..Well |now, I t|
|00000460| 68 6f 75 67 68 74 20 74 | 68 69 73 20 77 61 73 20 |hought t|his was |
|00000470| 73 6f 20 6e 65 61 74 2c | 20 61 6e 64 20 44 6f 75 |so neat,| and Dou|
|00000480| 67 20 77 61 73 20 72 69 | 67 68 74 20 69 74 20 6e |g was ri|ght it n|
|00000490| 65 65 64 73 20 61 20 0d | 3b 09 6c 69 74 74 6c 65 |eeds a .|;.little|
|000004a0| 20 6d 6f 72 65 20 73 70 | 65 65 64 2e 20 53 6f 20 | more sp|eed. So |
|000004b0| 74 68 61 74 73 20 77 68 | 61 74 20 49 20 64 69 64 |thats wh|at I did|
|000004c0| 2c 20 49 20 72 65 77 72 | 6f 74 65 20 74 68 65 20 |, I rewr|ote the |
|000004d0| 22 43 22 20 70 72 6f 67 | 72 61 6d 20 69 6e 20 0d |"C" prog|ram in .|
|000004e0| 3b 09 61 73 73 65 6d 62 | 6c 65 72 20 77 69 74 68 |;.assemb|ler with|
|000004f0| 20 64 69 72 65 63 74 20 | 70 72 6f 63 65 73 73 69 | direct |processi|
|00000500| 6e 67 20 6f 6e 20 74 68 | 65 20 4d 43 36 38 38 38 |ng on th|e MC6888|
|00000510| 31 20 46 50 55 2e 20 49 | 20 74 68 69 6e 6b 20 74 |1 FPU. I| think t|
|00000520| 68 69 73 20 6d 61 6b 65 | 73 0d 3b 09 71 75 69 74 |his make|s.;.quit|
|00000530| 65 20 61 20 64 69 66 66 | 65 72 65 6e 63 65 2e 20 |e a diff|erence. |
|00000540| 54 68 65 20 6f 6e 6c 79 | 20 74 68 69 6e 67 20 69 |The only| thing i|
|00000550| 73 20 74 68 61 74 20 69 | 74 20 6f 6e 6c 79 20 72 |s that i|t only r|
|00000560| 75 6e 73 20 6f 6e 20 61 | 20 4d 61 63 49 49 2e 20 |uns on a| MacII. |
|00000570| 49 74 0d 3b 09 6d 69 67 | 68 74 20 72 75 6e 20 6f |It.;.mig|ht run o|
|00000580| 6e 20 6f 6e 65 20 6f 72 | 20 6d 6f 72 65 20 6f 66 |n one or| more of|
|00000590| 20 74 68 65 20 61 63 63 | 65 6c 65 72 61 74 6f 72 | the acc|elerator|
|000005a0| 20 63 61 72 64 73 2e 20 | 47 69 76 65 20 69 74 20 | cards. |Give it |
|000005b0| 61 20 74 72 79 2e 20 49 | 66 20 0d 3b 09 6e 65 63 |a try. I|f .;.nec|
|000005c0| 65 73 73 61 72 79 2c 20 | 63 68 61 6e 67 65 20 74 |essary, |change t|
|000005d0| 68 65 20 43 4f 49 44 3d | 20 70 61 72 61 6d 65 74 |he COID=| paramet|
|000005e0| 65 72 20 62 65 6c 6f 77 | 20 69 66 20 74 68 65 79 |er below| if they|
|000005f0| 20 61 72 65 20 75 73 69 | 6e 67 20 6f 74 68 65 72 | are usi|ng other|
|00000600| 20 74 68 61 6e 20 31 2e | 0d 3b 0d 3b 09 09 09 09 | than 1.|.;.;....|
|00000610| 09 52 61 79 20 53 61 6e | 64 65 72 73 0d 3b 09 09 |.Ray San|ders.;..|
|00000620| 09 09 47 72 65 65 6e 20 | 47 72 61 73 73 20 53 6f |..Green |Grass So|
|00000630| 66 74 77 61 72 65 2c 20 | 49 6e 63 2e 0d 3b 0d 3b |ftware, |Inc..;.;|
|00000640| 09 09 09 43 49 53 3a 20 | 37 30 32 37 37 2c 33 32 |...CIS: |70277,32|
|00000650| 33 33 20 20 20 20 20 47 | 45 6e 69 65 3a 20 52 41 |33     G|Enie: RA|
|00000660| 59 53 41 4e 44 45 52 53 | 0d 3b 0d 3b 09 54 6f 20 |YSANDERS|.;.;.To |
|00000670| 61 73 73 65 6d 62 6c 65 | 20 61 6e 64 20 6c 69 6e |assemble| and lin|
|00000680| 6b 20 77 69 74 68 20 4d | 50 57 3a 0d 3b 0d 3b 09 |k with M|PW:.;.;.|
|00000690| 09 09 09 66 72 61 63 74 | 61 6c 32 2e 61 2e 6f 20 |...fract|al2.a.o |
|000006a0| c4 20 66 72 61 63 74 61 | 6c 32 2e 6d 61 6b 65 20 |. fracta|l2.make |
|000006b0| 66 72 61 63 74 61 6c 32 | 2e 61 0d 3b 09 09 09 09 |fractal2|.a.;....|
|000006c0| 09 41 73 6d 20 66 72 61 | 63 74 61 6c 32 2e 61 20 |.Asm fra|ctal2.a |
|000006d0| 2d 6c 20 2d 66 6f 6e 74 | 20 4d 6f 6e 61 63 6f 2c |-l -font| Monaco,|
|000006e0| 39 0d 3b 09 09 09 09 66 | 72 61 63 74 61 6c 32 20 |9.;....f|ractal2 |
|000006f0| c4 20 66 72 61 63 74 61 | 6c 32 2e 6d 61 6b 65 20 |. fracta|l2.make |
|00000700| 66 72 61 63 74 61 6c 32 | 2e 61 2e 6f 0d 3b 09 09 |fractal2|.a.o.;..|
|00000710| 09 09 09 6c 69 6e 6b 20 | 2d 6f 20 66 72 61 63 74 |...link |-o fract|
|00000720| 61 6c 32 20 2d 72 74 20 | 58 43 4d 44 3d 31 30 35 |al2 -rt |XCMD=105|
|00000730| 20 2d 73 6e 20 4d 61 69 | 6e 3d 46 72 61 63 74 61 | -sn Mai|n=Fracta|
|00000740| 6c 32 20 2d 74 20 53 54 | 41 4b 20 2d 63 20 57 49 |l2 -t ST|AK -c WI|
|00000750| 4c 44 20 b6 0d 3b 09 09 | 09 09 09 09 66 72 61 63 |LD ..;..|....frac|
|00000760| 74 61 6c 32 2e 61 2e 6f | 20 b6 0d 3b 09 09 09 09 |tal2.a.o| ..;....|
|00000770| 09 09 2d 6f 20 22 46 72 | 61 63 74 61 6c 73 22 0d |..-o "Fr|actals".|
|00000780| 3b 0d 3b 0d 66 72 61 63 | 74 61 6c 32 09 4d 41 49 |;.;.frac|tal2.MAI|
|00000790| 4e 0d 09 09 0d 09 09 42 | 4c 41 4e 4b 53 09 09 4f |N......B|LANKS..O|
|000007a0| 4e 0d 09 09 53 54 52 49 | 4e 47 09 09 41 53 49 53 |N...STRI|NG..ASIS|
|000007b0| 0d 09 09 4d 43 36 38 38 | 38 31 09 09 43 4f 49 44 |...MC688|81..COID|
|000007c0| 3d 31 2c 50 52 45 43 3d | 58 2c 52 4f 55 4e 44 3d |=1,PREC=|X,ROUND=|
|000007d0| 4e 0d 3b 20 09 09 49 4e | 43 4c 55 44 45 09 09 27 |N.; ..IN|CLUDE..'|
|000007e0| 54 72 61 70 73 2e 61 27 | 0d 3b 20 09 09 49 4e 43 |Traps.a'|.; ..INC|
|000007f0| 4c 55 44 45 09 09 27 53 | 79 73 45 71 75 2e 61 27 |LUDE..'S|ysEqu.a'|
|00000800| 0d 09 09 50 52 49 4e 54 | 09 09 4f 46 46 0d 20 09 |...PRINT|..OFF. .|
|00000810| 09 49 4e 43 4c 55 44 45 | 09 09 27 54 72 61 70 73 |.INCLUDE|..'Traps|
|00000820| 2e 61 27 0d 20 09 09 49 | 4e 43 4c 55 44 45 09 09 |.a'. ..I|NCLUDE..|
|00000830| 27 53 79 73 45 71 75 2e | 61 27 0d 09 09 50 52 49 |'SysEqu.|a'...PRI|
|00000840| 4e 54 09 09 4f 4e 2c 4e | 4f 57 41 52 4e 0d 3b 09 |NT..ON,N|OWARN.;.|
|00000850| 09 50 52 49 4e 54 09 09 | 4f 4e 0d 0d 0d 3b 20 48 |.PRINT..|ON...; H|
|00000860| 79 70 65 72 43 61 72 64 | 20 64 61 74 61 20 73 74 |yperCard| data st|
|00000870| 72 75 63 74 75 72 65 20 | 6f 66 66 73 65 74 73 0d |ructure |offsets.|
|00000880| 0d 58 43 6d 64 50 61 72 | 61 6d 43 6f 75 6e 74 09 |.XCmdPar|amCount.|
|00000890| 45 51 55 09 09 30 09 09 | 09 09 3b 6e 75 6d 62 65 |EQU..0..|..;numbe|
|000008a0| 72 20 6f 66 20 70 61 72 | 61 6d 65 74 65 72 73 0d |r of par|ameters.|
|000008b0| 58 43 6d 64 50 61 72 61 | 6d 73 09 09 45 51 55 09 |XCmdPara|ms..EQU.|
|000008c0| 09 32 09 09 09 09 3b 31 | 36 20 68 61 6e 64 6c 65 |.2....;1|6 handle|
|000008d0| 73 20 74 6f 20 43 2d 73 | 74 72 69 6e 67 73 0d 58 |s to C-s|trings.X|
|000008e0| 43 6d 64 52 65 74 75 72 | 6e 56 61 6c 09 45 51 55 |CmdRetur|nVal.EQU|
|000008f0| 09 09 36 36 09 09 09 09 | 3b 68 61 6e 64 6c 65 20 |..66....|;handle |
|00000900| 74 6f 20 72 65 74 75 72 | 6e 20 73 74 72 69 6e 67 |to retur|n string|
|00000910| 0d 58 43 6d 64 50 61 73 | 73 46 6c 61 67 09 45 51 |.XCmdPas|sFlag.EQ|
|00000920| 55 09 09 37 30 09 09 09 | 09 3b 62 6f 6f 6c 65 61 |U..70...|.;boolea|
|00000930| 6e 2c 20 74 6f 20 70 61 | 73 73 20 6d 65 73 73 61 |n, to pa|ss messa|
|00000940| 67 65 20 74 68 72 6f 75 | 67 68 0d 58 43 6d 64 45 |ge throu|gh.XCmdE|
|00000950| 6e 74 72 79 50 6f 69 6e | 74 09 45 51 55 09 09 37 |ntryPoin|t.EQU..7|
|00000960| 32 09 09 09 09 3b 68 79 | 70 65 72 43 61 72 64 20 |2....;hy|perCard |
|00000970| 63 61 6c 6c 2d 62 61 63 | 6b 0d 58 43 6d 64 52 65 |call-bac|k.XCmdRe|
|00000980| 71 75 65 73 74 09 09 45 | 51 55 09 09 37 36 09 09 |quest..E|QU..76..|
|00000990| 09 09 3b 63 61 6c 6c 20 | 62 61 63 6b 20 6f 70 63 |..;call |back opc|
|000009a0| 6f 64 65 20 66 69 65 6c | 64 0d 58 43 6d 64 52 65 |ode fiel|d.XCmdRe|
|000009b0| 73 75 6c 74 09 09 45 51 | 55 09 09 37 38 09 09 09 |sult..EQ|U..78...|
|000009c0| 09 3b 63 61 6c 6c 20 62 | 61 63 6b 20 72 65 73 75 |.;call b|ack resu|
|000009d0| 6c 74 20 66 69 65 6c 64 | 0d 58 43 6d 64 49 6e 41 |lt field|.XCmdInA|
|000009e0| 72 67 73 09 09 45 51 55 | 09 09 38 30 09 09 09 09 |rgs..EQU|..80....|
|000009f0| 3b 38 20 6c 6f 6e 67 73 | 2c 20 69 6e 70 75 74 20 |;8 longs|, input |
|00000a00| 61 72 67 75 6d 65 6e 74 | 73 0d 58 43 6d 64 4f 75 |argument|s.XCmdOu|
|00000a10| 74 41 72 67 73 09 09 45 | 51 55 09 09 31 31 32 09 |tArgs..E|QU..112.|
|00000a20| 09 09 09 3b 34 20 6c 6f | 6e 67 73 2c 20 6f 75 74 |...;4 lo|ngs, out|
|00000a30| 70 75 74 20 61 72 67 75 | 6d 65 6e 74 73 0d 0d 4d |put argu|ments..M|
|00000a40| 65 6e 75 4c 69 73 74 09 | 09 45 51 55 09 09 24 41 |enuList.|.EQU..$A|
|00000a50| 31 43 0d 0d 3b 09 72 65 | 73 75 6c 74 20 63 6f 64 |1C..;.re|sult cod|
|00000a60| 65 73 0d 0d 78 72 65 73 | 53 75 63 63 20 09 09 09 |es..xres|Succ ...|
|00000a70| 45 51 55 09 09 30 0d 78 | 72 65 73 46 61 69 6c 20 |EQU..0.x|resFail |
|00000a80| 09 09 09 45 51 55 09 09 | 31 20 0d 78 72 65 73 4e |...EQU..|1 .xresN|
|00000a90| 6f 74 49 6d 70 20 09 09 | 09 45 51 55 09 09 32 20 |otImp ..|.EQU..2 |
|00000aa0| 0d 0d 3b 09 72 65 71 75 | 65 73 74 20 63 6f 64 65 |..;.requ|est code|
|00000ab0| 73 0d 0d 78 72 65 71 53 | 65 6e 64 43 61 72 64 4d |s..xreqS|endCardM|
|00000ac0| 65 73 73 61 67 65 09 09 | 45 51 55 09 09 31 20 0d |essage..|EQU..1 .|
|00000ad0| 78 72 65 71 45 76 61 6c | 45 78 70 72 09 09 09 45 |xreqEval|Expr...E|
|00000ae0| 51 55 09 09 32 20 0d 78 | 72 65 71 53 74 72 69 6e |QU..2 .x|reqStrin|
|00000af0| 67 4c 65 6e 67 74 68 09 | 09 45 51 55 09 09 33 20 |gLength.|.EQU..3 |
|00000b00| 0d 78 72 65 71 53 74 72 | 69 6e 67 4d 61 74 63 68 |.xreqStr|ingMatch|
|00000b10| 09 09 09 45 51 55 09 09 | 34 20 0d 78 72 65 71 53 |...EQU..|4 .xreqS|
|00000b20| 65 6e 64 48 43 4d 65 73 | 73 61 67 65 09 09 45 51 |endHCMes|sage..EQ|
|00000b30| 55 09 09 35 0d 78 72 65 | 71 5a 65 72 6f 42 79 74 |U..5.xre|qZeroByt|
|00000b40| 65 73 20 20 20 20 20 20 | 20 20 20 09 45 51 55 09 |es      |   .EQU.|
|00000b50| 09 36 20 0d 78 72 65 71 | 50 61 73 54 6f 5a 65 72 |.6 .xreq|PasToZer|
|00000b60| 6f 09 09 09 45 51 55 09 | 09 37 20 0d 78 72 65 71 |o...EQU.|.7 .xreq|
|00000b70| 5a 65 72 6f 54 6f 50 61 | 73 09 09 09 45 51 55 09 |ZeroToPa|s...EQU.|
|00000b80| 09 38 20 0d 78 72 65 71 | 53 74 72 54 6f 4c 6f 6e |.8 .xreq|StrToLon|
|00000b90| 67 09 09 09 45 51 55 09 | 09 39 20 0d 78 72 65 71 |g...EQU.|.9 .xreq|
|00000ba0| 53 74 72 54 6f 4e 75 6d | 09 09 09 45 51 55 09 09 |StrToNum|...EQU..|
|00000bb0| 31 30 20 0d 78 72 65 71 | 53 74 72 54 6f 42 6f 6f |10 .xreq|StrToBoo|
|00000bc0| 6c 09 09 09 45 51 55 09 | 09 31 31 20 0d 78 72 65 |l...EQU.|.11 .xre|
|00000bd0| 71 53 74 72 54 6f 45 78 | 74 09 09 09 45 51 55 09 |qStrToEx|t...EQU.|
|00000be0| 09 31 32 20 0d 78 72 65 | 71 4c 6f 6e 67 54 6f 53 |.12 .xre|qLongToS|
|00000bf0| 74 72 09 09 09 45 51 55 | 09 09 31 33 20 0d 78 72 |tr...EQU|..13 .xr|
|00000c00| 65 71 4e 75 6d 54 6f 53 | 74 72 09 09 09 45 51 55 |eqNumToS|tr...EQU|
|00000c10| 09 09 31 34 20 0d 78 72 | 65 71 4e 75 6d 54 6f 48 |..14 .xr|eqNumToH|
|00000c20| 65 78 09 09 09 45 51 55 | 09 09 31 35 20 0d 78 72 |ex...EQU|..15 .xr|
|00000c30| 65 71 42 6f 6f 6c 54 6f | 53 74 72 09 09 09 45 51 |eqBoolTo|Str...EQ|
|00000c40| 55 09 09 31 36 20 0d 78 | 72 65 71 45 78 74 54 6f |U..16 .x|reqExtTo|
|00000c50| 53 74 72 09 09 09 45 51 | 55 09 09 31 37 20 0d 78 |Str...EQ|U..17 .x|
|00000c60| 72 65 71 47 65 74 47 6c | 6f 62 61 6c 09 09 09 45 |reqGetGl|obal...E|
|00000c70| 51 55 09 09 31 38 20 0d | 78 72 65 71 53 65 74 47 |QU..18 .|xreqSetG|
|00000c80| 6c 6f 62 61 6c 09 09 09 | 45 51 55 09 09 31 39 20 |lobal...|EQU..19 |
|00000c90| 0d 78 72 65 71 47 65 74 | 46 69 65 6c 64 42 79 4e |.xreqGet|FieldByN|
|00000ca0| 61 6d 65 09 09 45 51 55 | 09 09 32 30 20 0d 78 72 |ame..EQU|..20 .xr|
|00000cb0| 65 71 47 65 74 46 69 65 | 6c 64 42 79 4e 75 6d 09 |eqGetFie|ldByNum.|
|00000cc0| 09 45 51 55 09 09 32 31 | 20 0d 78 72 65 71 47 65 |.EQU..21| .xreqGe|
|00000cd0| 74 46 69 65 6c 64 42 79 | 49 44 09 09 45 51 55 09 |tFieldBy|ID..EQU.|
|00000ce0| 09 32 32 20 0d 78 72 65 | 71 53 65 74 46 69 65 6c |.22 .xre|qSetFiel|
|00000cf0| 64 42 79 4e 61 6d 65 09 | 09 45 51 55 09 09 32 33 |dByName.|.EQU..23|
|00000d00| 20 0d 78 72 65 71 53 65 | 74 46 69 65 6c 64 42 79 | .xreqSe|tFieldBy|
|00000d10| 4e 75 6d 09 09 45 51 55 | 09 09 32 34 20 0d 78 72 |Num..EQU|..24 .xr|
|00000d20| 65 71 53 65 74 46 69 65 | 6c 64 42 79 49 44 09 09 |eqSetFie|ldByID..|
|00000d30| 45 51 55 09 09 32 35 20 | 0d 78 72 65 71 53 74 72 |EQU..25 |.xreqStr|
|00000d40| 69 6e 67 45 71 75 61 6c | 20 20 20 20 20 20 20 09 |ingEqual|       .|
|00000d50| 45 51 55 09 09 32 36 20 | 0d 78 72 65 71 52 65 74 |EQU..26 |.xreqRet|
|00000d60| 75 72 6e 54 6f 50 61 73 | 20 20 20 20 20 20 20 09 |urnToPas|       .|
|00000d70| 45 51 55 09 09 32 37 20 | 0d 78 72 65 71 53 63 61 |EQU..27 |.xreqSca|
|00000d80| 6e 54 6f 52 65 74 75 72 | 6e 20 20 20 20 20 20 09 |nToRetur|n      .|
|00000d90| 45 51 55 09 09 32 38 20 | 0d 78 72 65 71 53 63 61 |EQU..28 |.xreqSca|
|00000da0| 6e 54 6f 5a 65 72 6f 20 | 20 20 20 20 20 20 20 09 |nToZero |       .|
|00000db0| 45 51 55 09 09 33 39 20 | 20 20 3b 09 77 61 73 20 |EQU..39 |  ;.was |
|00000dc0| 73 75 70 70 6f 73 65 20 | 74 6f 20 62 65 20 32 39 |suppose |to be 29|
|00000dd0| 21 20 20 4f 6f 70 73 21 | 0d 0d 0d 3b 20 64 65 66 |!  Oops!|...; def|
|00000de0| 69 6e 69 74 69 6f 6e 20 | 6f 66 20 73 74 61 63 6b |inition |of stack|
|00000df0| 20 66 72 61 6d 65 0d 0d | 73 74 61 63 6b 53 74 6f | frame..|stackSto|
|00000e00| 72 09 52 45 43 4f 52 44 | 09 30 2c 44 45 43 52 45 |r.RECORD|.0,DECRE|
|00000e10| 4d 45 4e 54 0d 73 74 61 | 63 6b 53 74 6f 72 53 74 |MENT.sta|ckStorSt|
|00000e20| 61 72 74 09 45 51 55 09 | 09 2a 0d 78 63 6d 64 42 |art.EQU.|.*.xcmdB|
|00000e30| 6c 6f 63 6b 41 64 64 72 | 09 44 53 2e 4c 09 31 0d |lockAddr|.DS.L.1.|
|00000e40| 6e 6f 4c 6f 63 6b 09 09 | 09 44 53 2e 57 09 31 0d |noLock..|.DS.W.1.|
|00000e50| 72 65 73 09 09 09 09 44 | 53 2e 57 09 31 0d 68 73 |res....D|S.W.1.hs|
|00000e60| 69 7a 65 09 09 09 44 53 | 2e 57 09 31 0d 76 73 69 |ize...DS|.W.1.vsi|
|00000e70| 7a 65 09 09 09 44 53 2e | 57 09 31 0d 69 09 09 09 |ze...DS.|W.1.i...|
|00000e80| 09 44 53 2e 57 09 31 0d | 6a 09 09 09 09 44 53 2e |.DS.W.1.|j....DS.|
|00000e90| 57 09 31 0d 69 74 65 72 | 09 09 09 44 53 2e 57 09 |W.1.iter|...DS.W.|
|00000ea0| 31 0d 6c 69 6d 69 74 09 | 09 09 44 53 2e 57 09 31 |1.limit.|..DS.W.1|
|00000eb0| 0d 72 62 61 73 65 68 09 | 09 09 44 53 2e 57 09 31 |.rbaseh.|..DS.W.1|
|00000ec0| 0d 72 61 74 09 09 09 09 | 44 53 2e 4c 09 33 0d 73 |.rat....|DS.L.3.s|
|00000ed0| 65 65 64 68 09 09 09 44 | 53 2e 4c 09 33 0d 73 65 |eedh...D|S.L.3.se|
|00000ee0| 65 64 76 09 09 09 44 53 | 2e 4c 09 33 0d 76 61 6c |edv...DS|.L.3.val|
|00000ef0| 68 09 09 09 44 53 2e 4c | 09 33 0d 76 61 6c 76 09 |h...DS.L|.3.valv.|
|00000f00| 09 09 44 53 2e 4c 09 33 | 0d 74 65 6d 70 09 09 09 |..DS.L.3|.temp...|
|00000f10| 44 53 2e 4c 09 33 0d 62 | 61 73 65 76 09 09 09 44 |DS.L.3.b|asev...D|
|00000f20| 53 2e 4c 09 33 0d 62 61 | 73 65 68 09 09 09 44 53 |S.L.3.ba|seh...DS|
|00000f30| 2e 4c 09 33 0d 68 73 71 | 09 09 09 09 44 53 2e 4c |.L.3.hsq|....DS.L|
|00000f40| 09 33 0d 76 73 71 09 09 | 09 09 44 53 2e 4c 09 33 |.3.vsq..|..DS.L.3|
|00000f50| 0d 72 65 61 6c 32 09 09 | 09 44 53 2e 4c 09 33 0d |.real2..|.DS.L.3.|
|00000f60| 72 65 61 6c 6e 32 09 09 | 09 44 53 2e 4c 09 33 0d |realn2..|.DS.L.3.|
|00000f70| 72 65 61 6c 31 30 30 09 | 09 09 44 53 2e 4c 09 33 |real100.|..DS.L.3|
|00000f80| 0d 66 61 6b 65 32 35 36 | 09 09 09 44 53 2e 4c 09 |.fake256|...DS.L.|
|00000f90| 31 0d 66 61 6b 65 31 37 | 31 09 09 09 44 53 2e 4c |1.fake17|1...DS.L|
|00000fa0| 09 31 0d 66 61 6b 65 32 | 09 09 09 44 53 2e 4c 09 |.1.fake2|...DS.L.|
|00000fb0| 31 0d 66 61 6b 65 31 30 | 30 09 09 09 44 53 2e 4c |1.fake10|0...DS.L|
|00000fc0| 09 31 0d 72 09 09 09 09 | 44 53 2e 57 09 34 0d 70 |.1.r....|DS.W.4.p|
|00000fd0| 61 74 73 09 09 09 44 53 | 2e 4c 09 38 0d 74 65 6d |ats...DS|.L.8.tem|
|00000fe0| 70 58 09 09 09 44 53 2e | 4c 09 33 0d 74 65 6d 70 |pX...DS.|L.3.temp|
|00000ff0| 53 74 72 09 09 09 44 53 | 2e 42 09 32 35 36 0d 74 |Str...DS|.B.256.t|
|00001000| 65 6d 70 4c 09 09 09 44 | 53 2e 4c 09 31 0d 73 74 |empL...D|S.L.1.st|
|00001010| 61 63 6b 53 74 6f 72 4c | 65 6e 09 45 51 55 20 09 |ackStorL|en.EQU .|
|00001020| 2a 2d 73 74 61 63 6b 53 | 74 6f 72 53 74 61 72 74 |*-stackS|torStart|
|00001030| 20 0d 09 09 09 45 4e 44 | 52 0d 0d 09 09 09 57 49 | ....END|R.....WI|
|00001040| 54 48 20 73 74 61 63 6b | 53 74 6f 72 0d 45 6e 74 |TH stack|Stor.Ent|
|00001050| 72 79 50 6f 69 6e 74 0d | 3b 3b 3b 09 09 5f 44 65 |ryPoint.|;;;.._De|
|00001060| 62 75 67 67 65 72 09 09 | 09 09 09 09 09 3b 0d 09 |bugger..|.....;..|
|00001070| 09 4c 49 4e 4b 09 41 36 | 2c 23 73 74 61 63 6b 53 |.LINK.A6|,#stackS|
|00001080| 74 6f 72 4c 65 6e 09 09 | 09 3b 0d 09 09 4d 4f 56 |torLen..|.;...MOV|
|00001090| 45 4d 2e 4c 09 41 30 2d | 41 36 2f 44 30 2d 44 37 |EM.L.A0-|A6/D0-D7|
|000010a0| 2c 2d 28 53 50 29 09 09 | 09 3b 0d 09 0d 09 09 4d |,-(SP)..|.;.....M|
|000010b0| 4f 56 45 2e 4c 09 38 28 | 41 36 29 2c 41 33 09 09 |OVE.L.8(|A6),A3..|
|000010c0| 09 09 09 3b 0d 09 09 4d | 4f 56 45 2e 4c 09 41 33 |...;...M|OVE.L.A3|
|000010d0| 2c 78 63 6d 64 42 6c 6f | 63 6b 41 64 64 72 28 41 |,xcmdBlo|ckAddr(A|
|000010e0| 36 29 09 09 3b 0d 09 09 | 0d 09 09 43 4d 50 49 2e |6)..;...|...CMPI.|
|000010f0| 57 09 23 33 2c 58 43 6d | 64 50 61 72 61 6d 43 6f |W.#3,XCm|dParamCo|
|00001100| 75 6e 74 28 41 33 29 09 | 09 3b 20 69 66 20 28 70 |unt(A3).|.; if (p|
|00001110| 61 72 61 6d 50 74 72 2d | 3e 70 61 72 61 6d 43 6f |aramPtr-|>paramCo|
|00001120| 75 6e 74 3c 32 29 20 72 | 65 74 75 72 6e 0d 09 09 |unt<2) r|eturn...|
|00001130| 42 4c 54 09 09 46 72 61 | 63 73 44 6f 6e 65 09 09 |BLT..Fra|csDone..|
|00001140| 09 09 09 3b 0d 09 09 0d | 09 09 4d 4f 56 45 2e 4c |...;....|..MOVE.L|
|00001150| 09 23 24 30 30 30 30 30 | 30 30 30 2c 70 61 74 73 |.#$00000|000,pats|
|00001160| 28 41 36 29 09 09 09 3b | 20 70 61 74 73 5b 30 5d |(A6)...;| pats[0]|
|00001170| 2e 6c 6f 6e 67 31 20 3d | 20 30 0d 09 09 4d 4f 56 |.long1 =| 0...MOV|
|00001180| 45 2e 4c 09 23 24 30 30 | 30 30 30 30 30 30 2c 70 |E.L.#$00|000000,p|
|00001190| 61 74 73 2b 34 28 41 36 | 29 09 09 3b 20 70 61 74 |ats+4(A6|)..; pat|
|000011a0| 73 5b 30 5d 2e 6c 6f 6e | 67 32 20 3d 20 30 0d 09 |s[0].lon|g2 = 0..|
|000011b0| 09 4d 4f 56 45 2e 4c 09 | 23 24 41 41 30 30 35 35 |.MOVE.L.|#$AA0055|
|000011c0| 30 30 2c 70 61 74 73 2b | 38 28 41 36 29 09 09 3b |00,pats+|8(A6)..;|
|000011d0| 20 70 61 74 73 5b 31 5d | 2e 6c 6f 6e 67 31 20 3d | pats[1]|.long1 =|
|000011e0| 20 30 78 61 61 30 30 35 | 35 30 30 0d 09 09 4d 4f | 0xaa005|500...MO|
|000011f0| 56 45 2e 4c 09 23 24 41 | 41 30 30 35 35 30 30 2c |VE.L.#$A|A005500,|
|00001200| 70 61 74 73 2b 31 32 28 | 41 36 29 09 09 3b 20 70 |pats+12(|A6)..; p|
|00001210| 61 74 73 5b 31 5d 2e 6c | 6f 6e 67 32 20 3d 20 30 |ats[1].l|ong2 = 0|
|00001220| 78 61 61 30 30 35 35 30 | 30 0d 09 09 4d 4f 56 45 |xaa00550|0...MOVE|
|00001230| 2e 4c 09 23 24 35 35 46 | 46 41 41 46 46 2c 70 61 |.L.#$55F|FAAFF,pa|
|00001240| 74 73 2b 31 36 28 41 36 | 29 09 09 3b 20 70 61 74 |ts+16(A6|)..; pat|
|00001250| 73 5b 32 5d 2e 6c 6f 6e | 67 31 20 3d 20 30 78 35 |s[2].lon|g1 = 0x5|
|00001260| 35 66 66 61 61 66 66 0d | 09 09 4d 4f 56 45 2e 4c |5ffaaff.|..MOVE.L|
|00001270| 09 23 24 35 35 46 46 41 | 41 46 46 2c 70 61 74 73 |.#$55FFA|AFF,pats|
|00001280| 2b 32 30 28 41 36 29 09 | 09 3b 20 70 61 74 73 5b |+20(A6).|.; pats[|
|00001290| 32 5d 2e 6c 6f 6e 67 32 | 20 3d 20 30 78 35 35 66 |2].long2| = 0x55f|
|000012a0| 66 61 61 66 66 0d 09 09 | 4d 4f 56 45 2e 4c 09 23 |faaff...|MOVE.L.#|
|000012b0| 24 46 46 46 46 46 46 46 | 46 2c 70 61 74 73 2b 32 |$FFFFFFF|F,pats+2|
|000012c0| 34 28 41 36 29 09 09 3b | 20 70 61 74 73 5b 33 5d |4(A6)..;| pats[3]|
|000012d0| 2e 6c 6f 6e 67 31 20 3d | 20 30 78 66 66 66 66 66 |.long1 =| 0xfffff|
|000012e0| 66 66 66 0d 09 09 4d 4f | 56 45 2e 4c 09 23 24 46 |fff...MO|VE.L.#$F|
|000012f0| 46 46 46 46 46 46 46 2c | 70 61 74 73 2b 32 38 28 |FFFFFFF,|pats+28(|
|00001300| 41 36 29 09 09 3b 20 70 | 61 74 73 5b 33 5d 2e 6c |A6)..; p|ats[3].l|
|00001310| 6f 6e 67 32 20 3d 20 30 | 78 66 66 66 66 66 66 66 |ong2 = 0|xfffffff|
|00001320| 66 0d 09 09 0d 09 09 4d | 4f 56 45 2e 57 09 23 38 |f......M|OVE.W.#8|
|00001330| 2c 72 65 73 28 41 36 29 | 09 09 09 09 09 3b 20 72 |,res(A6)|.....; r|
|00001340| 65 73 20 3d 20 38 0d 09 | 09 0d 09 09 4d 4f 56 45 |es = 8..|....MOVE|
|00001350| 2e 57 09 23 33 32 2c 6c | 69 6d 69 74 28 41 36 29 |.W.#32,l|imit(A6)|
|00001360| 09 09 09 09 3b 20 6c 69 | 6d 69 74 20 3d 20 33 32 |....; li|mit = 32|
|00001370| 0d 09 09 0d 09 09 4d 4f | 56 45 2e 57 09 23 31 2c |......MO|VE.W.#1,|
|00001380| 6e 6f 6c 6f 63 6b 28 41 | 36 29 09 09 09 09 3b 20 |nolock(A|6)....; |
|00001390| 6e 6f 6c 6f 63 6b 20 3d | 20 31 0d 0d 09 09 4d 4f |nolock =| 1....MO|
|000013a0| 56 45 2e 4c 09 58 43 6d | 64 50 61 72 61 6d 73 28 |VE.L.XCm|dParams(|
|000013b0| 41 33 29 2c 2d 28 53 50 | 29 09 09 3b 20 73 65 65 |A3),-(SP|)..; see|
|000013c0| 64 68 20 3d 20 50 61 72 | 61 6d 54 6f 45 78 74 28 |dh = Par|amToExt(|
|000013d0| 70 61 72 61 6d 50 74 72 | 2c 30 29 0d 09 09 50 45 |paramPtr|,0)...PE|
|000013e0| 41 2e 4c 09 73 65 65 64 | 68 28 41 36 29 09 09 09 |A.L.seed|h(A6)...|
|000013f0| 09 09 3b 0d 09 09 42 53 | 52 09 09 5a 65 72 6f 54 |..;...BS|R..ZeroT|
|00001400| 6f 45 78 74 09 09 09 09 | 09 3b 0d 09 09 41 44 44 |oExt....|.;...ADD|
|00001410| 51 2e 4c 09 23 38 2c 53 | 50 09 09 09 09 09 09 3b |Q.L.#8,S|P......;|
|00001420| 0d 09 09 0d 09 09 4d 4f | 56 45 2e 4c 09 58 43 6d |......MO|VE.L.XCm|
|00001430| 64 50 61 72 61 6d 73 2b | 34 28 41 33 29 2c 2d 28 |dParams+|4(A3),-(|
|00001440| 53 50 29 09 09 3b 20 73 | 65 65 64 76 20 3d 20 50 |SP)..; s|eedv = P|
|00001450| 61 72 61 6d 54 6f 45 78 | 74 28 70 61 72 61 6d 50 |aramToEx|t(paramP|
|00001460| 74 72 2c 31 29 0d 09 09 | 50 45 41 2e 4c 09 73 65 |tr,1)...|PEA.L.se|
|00001470| 65 64 76 28 41 36 29 09 | 09 09 09 09 3b 0d 09 09 |edv(A6).|....;...|
|00001480| 42 53 52 09 09 5a 65 72 | 6f 54 6f 45 78 74 09 09 |BSR..Zer|oToExt..|
|00001490| 09 09 09 3b 0d 09 09 41 | 44 44 51 2e 4c 09 23 38 |...;...A|DDQ.L.#8|
|000014a0| 2c 53 50 09 09 09 09 09 | 09 3b 0d 0d 09 09 43 4d |,SP.....|.;....CM|
|000014b0| 50 49 2e 57 09 23 33 2c | 58 43 6d 64 50 61 72 61 |PI.W.#3,|XCmdPara|
|000014c0| 6d 43 6f 75 6e 74 28 41 | 33 29 09 09 3b 20 69 66 |mCount(A|3)..; if|
|000014d0| 20 28 70 61 72 61 6d 50 | 74 72 2d 3e 70 61 72 61 | (paramP|tr->para|
|000014e0| 6d 43 6f 75 6e 74 3e 32 | 29 0d 09 09 42 4c 54 09 |mCount>2|)...BLT.|
|000014f0| 09 40 31 35 30 09 09 09 | 09 09 09 3b 0d 09 09 4d |.@150...|...;...M|
|00001500| 4f 56 45 2e 4c 09 58 43 | 6d 64 50 61 72 61 6d 73 |OVE.L.XC|mdParams|
|00001510| 2b 38 28 41 33 29 2c 2d | 28 53 50 29 09 09 3b 20 |+8(A3),-|(SP)..; |
|00001520| 72 65 73 20 3d 20 50 61 | 72 61 6d 54 6f 4e 75 6d |res = Pa|ramToNum|
|00001530| 28 70 61 72 61 6d 50 74 | 72 2c 32 29 0d 09 09 50 |(paramPt|r,2)...P|
|00001540| 45 41 2e 4c 09 74 65 6d | 70 4c 28 41 36 29 09 09 |EA.L.tem|pL(A6)..|
|00001550| 09 09 09 3b 0d 09 09 42 | 53 52 09 09 5a 65 72 6f |...;...B|SR..Zero|
|00001560| 54 6f 4e 75 6d 09 09 09 | 09 09 3b 0d 09 09 41 44 |ToNum...|..;...AD|
|00001570| 44 51 2e 4c 09 23 38 2c | 53 50 09 09 09 09 09 09 |DQ.L.#8,|SP......|
|00001580| 3b 0d 09 09 4d 4f 56 45 | 2e 57 09 74 65 6d 70 4c |;...MOVE|.W.tempL|
|00001590| 2b 32 28 41 36 29 2c 72 | 65 73 28 41 36 29 09 09 |+2(A6),r|es(A6)..|
|000015a0| 09 3b 0d 09 09 0d 09 09 | 43 4d 50 49 2e 57 09 23 |.;......|CMPI.W.#|
|000015b0| 30 2c 72 65 73 28 41 36 | 29 09 09 09 09 09 3b 20 |0,res(A6|).....; |
|000015c0| 69 66 20 28 72 65 73 20 | 3c 3d 20 30 29 0d 09 09 |if (res |<= 0)...|
|000015d0| 42 47 54 2e 53 09 40 31 | 31 30 09 09 09 09 09 09 |BGT.S.@1|10......|
|000015e0| 3b 20 0d 09 09 4d 4f 56 | 45 2e 57 09 23 31 2c 72 |; ...MOV|E.W.#1,r|
|000015f0| 65 73 28 41 36 29 09 09 | 09 09 09 3b 20 09 72 65 |es(A6)..|...; .re|
|00001600| 73 20 3d 20 31 0d 40 31 | 31 30 0d 0d 09 09 43 4d |s = 1.@1|10....CM|
|00001610| 50 49 2e 57 09 23 34 2c | 58 43 6d 64 50 61 72 61 |PI.W.#4,|XCmdPara|
|00001620| 6d 43 6f 75 6e 74 28 41 | 33 29 09 09 3b 20 69 66 |mCount(A|3)..; if|
|00001630| 20 28 70 61 72 61 6d 50 | 74 72 2d 3e 70 61 72 61 | (paramP|tr->para|
|00001640| 6d 43 6f 75 6e 74 3e 33 | 29 0d 09 09 42 4c 54 09 |mCount>3|)...BLT.|
|00001650| 09 40 31 35 30 09 09 09 | 09 09 09 3b 0d 09 09 4d |.@150...|...;...M|
|00001660| 4f 56 45 2e 4c 09 58 43 | 6d 64 50 61 72 61 6d 73 |OVE.L.XC|mdParams|
|00001670| 2b 31 32 28 41 33 29 2c | 2d 28 53 50 29 09 09 3b |+12(A3),|-(SP)..;|
|00001680| 20 6c 69 6d 69 74 20 3d | 20 50 61 72 61 6d 54 6f | limit =| ParamTo|
|00001690| 4e 75 6d 28 70 61 72 61 | 6d 50 74 72 2c 33 29 0d |Num(para|mPtr,3).|
|000016a0| 09 09 50 45 41 2e 4c 09 | 74 65 6d 70 4c 28 41 36 |..PEA.L.|tempL(A6|
|000016b0| 29 09 09 09 09 09 3b 0d | 09 09 42 53 52 09 09 5a |).....;.|..BSR..Z|
|000016c0| 65 72 6f 54 6f 4e 75 6d | 09 09 09 09 09 3b 0d 09 |eroToNum|.....;..|
|000016d0| 09 41 44 44 51 2e 4c 09 | 23 38 2c 53 50 09 09 09 |.ADDQ.L.|#8,SP...|
|000016e0| 09 09 09 3b 0d 09 09 4d | 4f 56 45 2e 57 09 74 65 |...;...M|OVE.W.te|
|000016f0| 6d 70 4c 2b 32 28 41 36 | 29 2c 6c 69 6d 69 74 28 |mpL+2(A6|),limit(|
|00001700| 41 36 29 09 09 3b 0d 09 | 09 0d 09 09 43 4d 50 49 |A6)..;..|....CMPI|
|00001710| 2e 57 09 23 33 2c 6c 69 | 6d 69 74 28 41 36 29 09 |.W.#3,li|mit(A6).|
|00001720| 09 09 09 3b 20 69 66 20 | 28 6c 69 6d 69 74 3c 34 |...; if |(limit<4|
|00001730| 29 20 0d 09 09 42 47 54 | 2e 53 09 40 31 32 30 09 |) ...BGT|.S.@120.|
|00001740| 09 09 09 09 09 3b 0d 09 | 09 4d 4f 56 45 2e 57 09 |.....;..|.MOVE.W.|
|00001750| 23 34 2c 6c 69 6d 69 74 | 28 41 36 29 09 09 09 09 |#4,limit|(A6)....|
|00001760| 3b 20 09 6c 69 6d 69 74 | 20 3d 20 34 0d 40 31 32 |; .limit| = 4.@12|
|00001770| 30 0d 0d 09 09 43 4d 50 | 49 2e 57 09 23 35 2c 58 |0....CMP|I.W.#5,X|
|00001780| 43 6d 64 50 61 72 61 6d | 43 6f 75 6e 74 28 41 33 |CmdParam|Count(A3|
|00001790| 29 09 09 3b 20 69 66 20 | 28 70 61 72 61 6d 50 74 |)..; if |(paramPt|
|000017a0| 72 2d 3e 70 61 72 61 6d | 43 6f 75 6e 74 3e 34 29 |r->param|Count>4)|
|000017b0| 0d 09 09 42 4c 54 09 09 | 40 31 35 30 09 09 09 09 |...BLT..|@150....|
|000017c0| 09 09 3b 0d 09 09 4d 4f | 56 45 2e 4c 09 58 43 6d |..;...MO|VE.L.XCm|
|000017d0| 64 50 61 72 61 6d 73 2b | 31 36 28 41 33 29 2c 2d |dParams+|16(A3),-|
|000017e0| 28 53 50 29 09 09 3b 20 | 6e 6f 6c 6f 63 6b 20 3d |(SP)..; |nolock =|
|000017f0| 20 21 50 61 72 61 6d 54 | 6f 4e 75 6d 28 70 61 72 | !ParamT|oNum(par|
|00001800| 61 6d 50 74 72 2c 34 29 | 0d 09 09 50 45 41 2e 4c |amPtr,4)|...PEA.L|
|00001810| 09 74 65 6d 70 4c 28 41 | 36 29 09 09 09 09 09 3b |.tempL(A|6).....;|
|00001820| 0d 09 09 42 53 52 09 09 | 5a 65 72 6f 54 6f 4e 75 |...BSR..|ZeroToNu|
|00001830| 6d 09 09 09 09 09 3b 0d | 09 09 41 44 44 51 2e 4c |m.....;.|..ADDQ.L|
|00001840| 09 23 38 2c 53 50 09 09 | 09 09 09 09 3b 0d 09 09 |.#8,SP..|....;...|
|00001850| 4d 4f 56 45 2e 57 09 74 | 65 6d 70 4c 2b 32 28 41 |MOVE.W.t|empL+2(A|
|00001860| 36 29 2c 6e 6f 6c 6f 63 | 6b 28 41 36 29 09 09 3b |6),noloc|k(A6)..;|
|00001870| 0d 09 09 4e 4f 54 2e 57 | 09 6e 6f 6c 6f 63 6b 28 |...NOT.W|.nolock(|
|00001880| 41 36 29 09 09 09 09 09 | 3b 0d 40 31 35 30 0d 0d |A6).....|;.@150..|
|00001890| 3b 09 2f 2a 20 6d 61 70 | 20 73 63 72 65 65 6e 20 |;./* map| screen |
|000018a0| 6f 6e 74 6f 20 2d 32 20 | 74 6f 20 32 20 72 61 6e |onto -2 |to 2 ran|
|000018b0| 67 65 20 2a 2f 0d 3b 09 | 0d 3b 09 2f 2a 20 30 2c |ge */.;.|.;./* 0,|
|000018c0| 30 20 69 73 20 61 74 20 | 35 31 32 2f 32 2c 20 33 |0 is at |512/2, 3|
|000018d0| 34 32 2f 32 20 3d 20 32 | 35 36 2c 31 37 31 20 2a |42/2 = 2|56,171 *|
|000018e0| 2f 0d 3b 09 0d 3b 09 2f | 2a 20 67 72 69 64 64 69 |/.;..;./|* griddi|
|000018f0| 6e 67 20 74 6f 20 72 65 | 73 20 72 65 71 75 69 72 |ng to re|s requir|
|00001900| 65 73 20 74 68 61 74 20 | 49 20 66 69 6e 64 20 6f |es that |I find o|
|00001910| 75 74 20 68 6f 77 20 6d | 61 6e 79 20 62 6f 78 65 |ut how m|any boxe|
|00001920| 73 20 77 69 64 65 20 61 | 6e 64 20 74 61 6c 6c 0d |s wide a|nd tall.|
|00001930| 3b 09 20 20 20 74 68 65 | 20 69 6d 61 67 65 20 69 |;.   the| image i|
|00001940| 73 2c 20 61 6e 64 20 6d | 61 70 20 65 61 63 68 20 |s, and m|ap each |
|00001950| 62 6f 78 20 6f 6e 74 6f | 20 61 20 76 61 6c 75 65 |box onto| a value|
|00001960| 20 69 6e 20 72 32 2e 20 | 20 74 68 65 6e 20 69 20 | in r2. | then i |
|00001970| 69 74 65 72 61 74 65 20 | 6f 76 65 72 0d 3b 09 20 |iterate |over.;. |
|00001980| 20 20 61 6c 6c 20 74 68 | 65 20 62 6f 78 65 73 20 |  all th|e boxes |
|00001990| 63 61 6c 6c 69 6e 67 20 | 74 68 65 20 66 75 6e 63 |calling |the func|
|000019a0| 74 69 6f 6e 20 75 6e 74 | 69 6c 20 74 68 65 20 78 |tion unt|il the x|
|000019b0| 20 6f 72 20 79 20 65 78 | 63 65 65 64 73 20 73 6f | or y ex|ceeds so|
|000019c0| 6d 65 20 6c 69 6d 69 74 | 2e 0d 3b 09 20 20 20 74 |me limit|..;.   t|
|000019d0| 68 65 6e 20 69 20 6d 61 | 70 20 74 68 65 20 6e 75 |hen i ma|p the nu|
|000019e0| 6d 62 65 72 20 6f 66 20 | 69 74 65 72 61 74 69 6f |mber of |iteratio|
|000019f0| 6e 73 20 69 6e 74 6f 20 | 61 20 27 63 6f 6c 6f 72 |ns into |a 'color|
|00001a00| 27 20 2a 2f 0d 3b 09 20 | 20 20 0d 3b 20 20 20 20 |' */.;. |  .;    |
|00001a10| 2f 2a 20 73 69 6e 63 65 | 20 77 65 20 64 6f 6e 27 |/* since| we don'|
|00001a20| 74 20 68 61 76 65 20 61 | 20 67 6c 6f 62 61 6c 20 |t have a| global |
|00001a30| 64 61 74 61 20 61 72 65 | 61 20 66 6f 72 20 65 78 |data are|a for ex|
|00001a40| 74 65 6e 64 65 64 20 63 | 6f 6e 73 74 61 6e 74 73 |tended c|onstants|
|00001a50| 20 74 6f 20 6c 69 76 65 | 20 69 6e 2c 0d 3b 09 20 | to live| in,.;. |
|00001a60| 20 20 75 73 65 20 6c 6f | 6e 67 73 20 61 6e 64 20 |  use lo|ngs and |
|00001a70| 66 61 6b 65 20 74 68 65 | 20 63 6f 6d 70 69 6c 65 |fake the| compile|
|00001a80| 72 20 69 6e 74 6f 20 6d | 61 6b 69 6e 67 20 74 68 |r into m|aking th|
|00001a90| 65 20 63 6f 72 72 65 63 | 74 20 53 41 4e 45 20 63 |e correc|t SANE c|
|00001aa0| 61 6c 6c 73 20 74 6f 20 | 0d 3b 09 20 20 20 62 75 |alls to |.;.   bu|
|00001ab0| 69 6c 64 20 74 68 65 20 | 65 78 74 65 6e 64 65 64 |ild the |extended|
|00001ac0| 20 76 61 6c 75 65 73 2e | 20 20 49 73 20 74 68 65 | values.|  Is the|
|00001ad0| 72 65 20 61 20 62 65 74 | 74 65 72 20 77 61 79 20 |re a bet|ter way |
|00001ae0| 28 62 65 73 69 64 65 73 | 20 75 73 69 6e 67 20 50 |(besides| using P|
|00001af0| 61 73 63 61 6c 21 29 20 | 2a 2f 0d 3b 0d 09 09 4d |ascal!) |*/.;...M|
|00001b00| 4f 56 45 2e 4c 09 23 32 | 35 36 2c 66 61 6b 65 32 |OVE.L.#2|56,fake2|
|00001b10| 35 36 28 41 36 29 09 09 | 09 3b 20 66 61 6b 65 32 |56(A6)..|.; fake2|
|00001b20| 35 36 20 3d 20 32 35 36 | 0d 09 09 0d 09 09 4d 4f |56 = 256|......MO|
|00001b30| 56 45 2e 4c 09 23 31 37 | 31 2c 66 61 6b 65 31 37 |VE.L.#17|1,fake17|
|00001b40| 31 28 41 36 29 09 09 09 | 3b 20 66 61 6b 65 31 37 |1(A6)...|; fake17|
|00001b50| 31 20 3d 20 31 37 31 0d | 09 09 0d 09 09 4d 4f 56 |1 = 171.|.....MOV|
|00001b60| 45 2e 4c 09 23 32 2c 66 | 61 6b 65 32 28 41 36 29 |E.L.#2,f|ake2(A6)|
|00001b70| 09 09 09 09 3b 20 66 61 | 6b 65 32 20 3d 20 32 0d |....; fa|ke2 = 2.|
|00001b80| 09 09 0d 09 09 4d 4f 56 | 45 2e 4c 09 23 31 30 30 |.....MOV|E.L.#100|
|00001b90| 2c 66 61 6b 65 31 30 30 | 28 41 36 29 09 09 09 3b |,fake100|(A6)...;|
|00001ba0| 20 66 61 6b 65 31 30 30 | 20 3d 20 31 30 30 0d 0d | fake100| = 100..|
|00001bb0| 09 09 4d 4f 56 45 2e 4c | 09 23 32 35 36 2c 44 30 |..MOVE.L|.#256,D0|
|00001bc0| 09 09 09 09 09 09 3b 20 | 68 73 69 7a 65 20 3d 20 |......; |hsize = |
|00001bd0| 28 66 61 6b 65 32 35 36 | 2f 72 65 73 29 2b 31 0d |(fake256|/res)+1.|
|00001be0| 09 09 44 49 56 53 2e 57 | 09 72 65 73 28 41 36 29 |..DIVS.W|.res(A6)|
|00001bf0| 2c 44 30 09 09 09 09 09 | 3b 0d 09 09 41 44 44 51 |,D0.....|;...ADDQ|
|00001c00| 2e 57 09 23 31 2c 44 30 | 09 09 09 09 09 09 3b 0d |.W.#1,D0|......;.|
|00001c10| 09 09 4d 4f 56 45 2e 57 | 09 44 30 2c 68 73 69 7a |..MOVE.W|.D0,hsiz|
|00001c20| 65 28 41 36 29 09 09 09 | 09 3b 0d 09 09 0d 09 09 |e(A6)...|.;......|
|00001c30| 4d 4f 56 45 2e 4c 09 23 | 31 37 31 2c 44 30 09 09 |MOVE.L.#|171,D0..|
|00001c40| 09 09 09 09 3b 20 76 73 | 69 7a 65 20 3d 20 28 66 |....; vs|ize = (f|
|00001c50| 61 6b 65 31 37 31 2f 72 | 65 73 29 2b 31 0d 09 09 |ake171/r|es)+1...|
|00001c60| 44 49 56 53 2e 57 09 72 | 65 73 28 41 36 29 2c 44 |DIVS.W.r|es(A6),D|
|00001c70| 30 09 09 09 09 09 3b 0d | 09 09 41 44 44 51 2e 57 |0.....;.|..ADDQ.W|
|00001c80| 09 23 31 2c 44 30 09 09 | 09 09 09 09 3b 0d 09 09 |.#1,D0..|....;...|
|00001c90| 4d 4f 56 45 2e 57 09 44 | 30 2c 76 73 69 7a 65 28 |MOVE.W.D|0,vsize(|
|00001ca0| 41 36 29 09 09 09 09 3b | 0d 09 09 0d 09 09 46 4d |A6)....;|......FM|
|00001cb0| 4f 56 45 43 52 2e 58 20 | 23 24 33 34 2c 46 50 30 |OVECR.X |#$34,FP0|
|00001cc0| 09 09 09 09 09 3b 20 72 | 65 61 6c 31 30 30 20 3d |.....; r|eal100 =|
|00001cd0| 20 66 61 6b 65 31 30 30 | 0d 09 09 46 4d 4f 56 45 | fake100|...FMOVE|
|00001ce0| 2e 58 09 46 50 30 2c 72 | 65 61 6c 31 30 30 28 41 |.X.FP0,r|eal100(A|
|00001cf0| 36 29 09 09 09 09 3b 0d | 09 09 0d 09 09 46 4d 4f |6)....;.|.....FMO|
|00001d00| 56 45 2e 57 09 23 32 2c | 46 50 30 09 09 09 09 09 |VE.W.#2,|FP0.....|
|00001d10| 09 3b 20 72 65 61 6c 32 | 20 3d 20 66 61 6b 65 32 |.; real2| = fake2|
|00001d20| 0d 09 09 46 4d 4f 56 45 | 2e 58 09 46 50 30 2c 72 |...FMOVE|.X.FP0,r|
|00001d30| 65 61 6c 32 28 41 36 29 | 09 09 09 09 3b 0d 09 09 |eal2(A6)|....;...|
|00001d40| 0d 09 09 46 4d 4f 56 45 | 2e 57 09 23 2d 32 2c 46 |...FMOVE|.W.#-2,F|
|00001d50| 50 30 09 09 09 09 09 09 | 3b 20 72 65 61 6c 6e 32 |P0......|; realn2|
|00001d60| 20 3d 20 2d 66 61 6b 65 | 32 0d 09 09 46 4d 4f 56 | = -fake|2...FMOV|
|00001d70| 45 2e 58 09 46 50 30 2c | 72 65 61 6c 6e 32 28 41 |E.X.FP0,|realn2(A|
|00001d80| 36 29 09 09 09 09 3b 0d | 09 09 0d 09 09 46 4d 4f |6)....;.|.....FMO|
|00001d90| 56 45 2e 58 09 72 65 61 | 6c 32 28 41 36 29 2c 46 |VE.X.rea|l2(A6),F|
|00001da0| 50 30 09 09 09 09 3b 20 | 72 61 74 20 3d 20 72 65 |P0....; |rat = re|
|00001db0| 61 6c 32 2f 68 73 69 7a | 65 0d 09 09 46 44 49 56 |al2/hsiz|e...FDIV|
|00001dc0| 2e 57 09 68 73 69 7a 65 | 28 41 36 29 2c 46 50 30 |.W.hsize|(A6),FP0|
|00001dd0| 09 09 09 09 3b 0d 09 09 | 46 4d 4f 56 45 2e 58 09 |....;...|FMOVE.X.|
|00001de0| 46 50 30 2c 72 61 74 28 | 41 36 29 09 09 09 09 09 |FP0,rat(|A6).....|
|00001df0| 3b 20 2f 2a 20 72 65 61 | 6c 73 20 69 6e 74 65 72 |; /* rea|ls inter|
|00001e00| 6d 65 64 69 61 74 65 20 | 72 65 73 75 6c 74 20 62 |mediate |result b|
|00001e10| 65 63 61 75 73 65 20 6f | 66 20 72 65 61 6c 32 20 |ecause o|f real2 |
|00001e20| 2a 2f 0d 09 09 0d 09 09 | 4d 4f 56 45 2e 57 09 72 |*/......|MOVE.W.r|
|00001e30| 65 73 28 41 36 29 2c 44 | 30 09 09 09 09 09 3b 20 |es(A6),D|0.....; |
|00001e40| 72 62 61 73 65 68 20 3d | 20 32 35 36 2d 68 73 69 |rbaseh =| 256-hsi|
|00001e50| 7a 65 2a 72 65 73 0d 09 | 09 4d 55 4c 53 2e 57 09 |ze*res..|.MULS.W.|
|00001e60| 68 73 69 7a 65 28 41 36 | 29 2c 44 30 09 09 09 09 |hsize(A6|),D0....|
|00001e70| 3b 0d 09 09 4d 4f 56 45 | 2e 57 09 23 32 35 36 2c |;...MOVE|.W.#256,|
|00001e80| 44 31 09 09 09 09 09 09 | 3b 0d 09 09 53 55 42 2e |D1......|;...SUB.|
|00001e90| 57 09 44 30 2c 44 31 09 | 09 09 09 09 09 3b 0d 09 |W.D0,D1.|.....;..|
|00001ea0| 09 4d 4f 56 45 2e 57 09 | 44 31 2c 72 62 61 73 65 |.MOVE.W.|D1,rbase|
|00001eb0| 68 28 41 36 29 09 09 09 | 09 3b 0d 09 09 0d 09 09 |h(A6)...|.;......|
|00001ec0| 4d 4f 56 45 2e 57 09 72 | 65 73 28 41 36 29 2c 44 |MOVE.W.r|es(A6),D|
|00001ed0| 30 09 09 09 09 09 3b 20 | 72 2e 74 6f 70 20 3d 20 |0.....; |r.top = |
|00001ee0| 31 37 31 2d 76 73 69 7a | 65 2a 72 65 73 0d 09 09 |171-vsiz|e*res...|
|00001ef0| 4d 55 4c 53 2e 57 09 76 | 73 69 7a 65 28 41 36 29 |MULS.W.v|size(A6)|
|00001f00| 2c 44 30 09 09 09 09 3b | 0d 09 09 4d 4f 56 45 2e |,D0....;|...MOVE.|
|00001f10| 57 09 23 31 37 31 2c 44 | 31 09 09 09 09 09 09 3b |W.#171,D|1......;|
|00001f20| 0d 09 09 53 55 42 2e 57 | 09 44 30 2c 44 31 09 09 |...SUB.W|.D0,D1..|
|00001f30| 09 09 09 09 3b 0d 09 09 | 4d 4f 56 45 2e 57 09 44 |....;...|MOVE.W.D|
|00001f40| 31 2c 72 28 41 36 29 09 | 09 09 09 09 3b 0d 09 09 |1,r(A6).|....;...|
|00001f50| 0d 09 09 41 44 44 2e 57 | 09 72 65 73 28 41 36 29 |...ADD.W|.res(A6)|
|00001f60| 2c 44 31 09 09 09 09 09 | 3b 20 72 2e 62 6f 74 74 |,D1.....|; r.bott|
|00001f70| 6f 6d 20 3d 20 72 2e 74 | 6f 70 20 2b 20 72 65 73 |om = r.t|op + res|
|00001f80| 0d 09 09 4d 4f 56 45 2e | 57 09 44 31 2c 72 2b 34 |...MOVE.|W.D1,r+4|
|00001f90| 28 41 36 29 09 09 09 09 | 09 3b 0d 09 09 0d 09 09 |(A6)....|.;......|
|00001fa0| 46 4d 4f 56 45 2e 4c 09 | 66 61 6b 65 31 37 31 28 |FMOVE.L.|fake171(|
|00001fb0| 41 36 29 2c 46 50 32 09 | 09 09 09 3b 20 62 61 73 |A6),FP2.|...; bas|
|00001fc0| 65 76 20 3d 20 72 65 61 | 6c 6e 32 2a 66 61 6b 65 |ev = rea|ln2*fake|
|00001fd0| 31 37 31 2f 66 61 6b 65 | 32 35 36 0d 09 09 46 4d |171/fake|256...FM|
|00001fe0| 55 4c 2e 58 09 72 65 61 | 6c 6e 32 28 41 36 29 2c |UL.X.rea|ln2(A6),|
|00001ff0| 46 50 32 09 09 09 09 3b | 20 2f 2a 20 63 65 6e 74 |FP2....;| /* cent|
|00002000| 65 72 20 69 74 20 2a 2f | 0d 09 09 46 44 49 56 2e |er it */|...FDIV.|
|00002010| 4c 09 66 61 6b 65 32 35 | 36 28 41 36 29 2c 46 50 |L.fake25|6(A6),FP|
|00002020| 32 09 09 09 09 3b 0d 09 | 09 0d 3b 09 09 09 66 6f |2....;..|..;...fo|
|00002030| 72 20 6c 6f 6f 70 0d 09 | 09 0d 09 09 4d 4f 56 45 |r loop..|....MOVE|
|00002040| 2e 57 09 76 73 69 7a 65 | 28 41 36 29 2c 69 28 41 |.W.vsize|(A6),i(A|
|00002050| 36 29 09 09 09 09 3b 20 | 66 6f 72 20 28 69 3d 2d |6)....; |for (i=-|
|00002060| 76 73 69 7a 65 3b 20 69 | 3c 76 73 69 7a 65 3b 20 |vsize; i|<vsize; |
|00002070| 2b 2b 69 29 0d 09 09 4e | 45 47 2e 57 09 69 28 41 |++i)...N|EG.W.i(A|
|00002080| 36 29 09 09 09 09 09 09 | 3b 0d 40 32 30 30 0d 09 |6)......|;.@200..|
|00002090| 09 4d 4f 56 45 2e 57 09 | 76 73 69 7a 65 28 41 36 |.MOVE.W.|vsize(A6|
|000020a0| 29 2c 44 30 09 09 09 09 | 3b 0d 09 09 43 4d 50 2e |),D0....|;...CMP.|
|000020b0| 57 09 69 28 41 36 29 2c | 44 30 09 09 09 09 09 3b |W.i(A6),|D0.....;|
|000020c0| 0d 09 09 42 4c 45 09 09 | 40 35 30 30 09 09 09 09 |...BLE..|@500....|
|000020d0| 09 09 3b 0d 09 09 0d 09 | 09 4d 4f 56 45 2e 57 09 |..;.....|.MOVE.W.|
|000020e0| 72 62 61 73 65 68 28 41 | 36 29 2c 72 2b 32 28 41 |rbaseh(A|6),r+2(A|
|000020f0| 36 29 09 09 09 3b 20 72 | 2e 6c 65 66 74 20 3d 20 |6)...; r|.left = |
|00002100| 72 62 61 73 65 68 0d 09 | 09 0d 09 09 4d 4f 56 45 |rbaseh..|....MOVE|
|00002110| 2e 57 09 72 2b 32 28 41 | 36 29 2c 44 30 09 09 09 |.W.r+2(A|6),D0...|
|00002120| 09 09 3b 20 72 2e 72 69 | 67 68 74 20 3d 20 72 2e |..; r.ri|ght = r.|
|00002130| 6c 65 66 74 20 2b 20 72 | 65 73 0d 09 09 41 44 44 |left + r|es...ADD|
|00002140| 2e 57 09 72 65 73 28 41 | 36 29 2c 44 30 09 09 09 |.W.res(A|6),D0...|
|00002150| 09 09 3b 0d 09 09 4d 4f | 56 45 2e 57 09 44 30 2c |..;...MO|VE.W.D0,|
|00002160| 72 2b 36 28 41 36 29 09 | 09 09 09 09 3b 0d 09 09 |r+6(A6).|....;...|
|00002170| 0d 09 09 46 4d 4f 56 45 | 2e 58 09 72 65 61 6c 6e |...FMOVE|.X.realn|
|00002180| 32 28 41 36 29 2c 46 50 | 33 09 09 09 09 3b 20 62 |2(A6),FP|3....; b|
|00002190| 61 73 65 68 20 3d 20 72 | 65 61 6c 6e 32 0d 09 09 |aseh = r|ealn2...|
|000021a0| 0d 3b 09 09 09 66 6f 72 | 20 6c 6f 6f 70 0d 0d 09 |.;...for| loop...|
|000021b0| 09 4d 4f 56 45 2e 57 09 | 68 73 69 7a 65 28 41 36 |.MOVE.W.|hsize(A6|
|000021c0| 29 2c 6a 28 41 36 29 09 | 09 09 09 3b 20 66 6f 72 |),j(A6).|...; for|
|000021d0| 20 28 6a 3d 2d 68 73 69 | 7a 65 3b 20 6a 3c 68 73 | (j=-hsi|ze; j<hs|
|000021e0| 69 7a 65 3b 20 2b 2b 6a | 29 0d 09 09 4e 45 47 2e |ize; ++j|)...NEG.|
|000021f0| 57 09 6a 28 41 36 29 09 | 09 09 09 09 09 3b 0d 40 |W.j(A6).|.....;.@|
|00002200| 32 35 30 0d 09 09 4d 4f | 56 45 2e 57 09 68 73 69 |250...MO|VE.W.hsi|
|00002210| 7a 65 28 41 36 29 2c 44 | 30 09 09 09 09 3b 0d 09 |ze(A6),D|0....;..|
|00002220| 09 43 4d 50 2e 57 09 6a | 28 41 36 29 2c 44 30 09 |.CMP.W.j|(A6),D0.|
|00002230| 09 09 09 09 3b 0d 09 09 | 42 4c 45 09 09 40 34 35 |....;...|BLE..@45|
|00002240| 30 09 09 09 09 09 09 3b | 0d 09 09 0d 09 09 46 4d |0......;|......FM|
|00002250| 4f 56 45 2e 58 09 46 50 | 33 2c 46 50 35 09 09 09 |OVE.X.FP|3,FP5...|
|00002260| 09 09 09 3b 20 76 61 6c | 68 20 3d 20 62 61 73 65 |...; val|h = base|
|00002270| 68 0d 09 09 0d 09 09 46 | 4d 4f 56 45 2e 58 09 46 |h......F|MOVE.X.F|
|00002280| 50 32 2c 46 50 34 09 09 | 09 09 09 09 3b 20 76 61 |P2,FP4..|....; va|
|00002290| 6c 76 20 3d 20 62 61 73 | 65 76 0d 09 09 0d 09 09 |lv = bas|ev......|
|000022a0| 4d 4f 56 45 2e 57 09 23 | 30 2c 69 74 65 72 28 41 |MOVE.W.#|0,iter(A|
|000022b0| 36 29 09 09 09 09 09 3b | 20 69 74 65 72 20 3d 20 |6).....;| iter = |
|000022c0| 30 0d 09 09 0d 3b 09 09 | 09 64 6f 20 6c 6f 6f 70 |0....;..|.do loop|
|000022d0| 0d 0d 40 33 30 30 0d 3b | 0d 3b 0d 3b 09 72 65 67 |..@300.;|.;.;.reg|
|000022e0| 69 73 74 65 72 20 61 73 | 73 69 67 6e 6d 65 6e 74 |ister as|signment|
|000022f0| 73 20 74 6f 20 73 70 65 | 65 64 20 75 70 20 6c 6f |s to spe|ed up lo|
|00002300| 6f 70 0d 3b 0d 3b 09 09 | 68 73 71 20 69 73 20 69 |op.;.;..|hsq is i|
|00002310| 6e 20 46 50 37 0d 3b 09 | 09 76 73 71 20 69 73 20 |n FP7.;.|.vsq is |
|00002320| 69 6e 20 46 50 36 0d 3b | 09 09 76 61 6c 68 20 69 |in FP6.;|..valh i|
|00002330| 73 20 69 6e 20 46 50 35 | 0d 3b 09 09 76 61 6c 76 |s in FP5|.;..valv|
|00002340| 20 69 73 20 69 6e 20 46 | 50 34 0d 3b 09 09 62 61 | is in F|P4.;..ba|
|00002350| 73 65 68 20 69 73 20 69 | 6e 20 46 50 33 0d 3b 09 |seh is i|n FP3.;.|
|00002360| 09 62 61 73 65 76 20 69 | 73 20 69 6e 20 46 50 32 |.basev i|s in FP2|
|00002370| 0d 3b 0d 09 09 0d 09 09 | 46 4d 4f 56 45 2e 58 09 |.;......|FMOVE.X.|
|00002380| 46 50 35 2c 46 50 37 09 | 09 09 09 09 09 3b 20 68 |FP5,FP7.|.....; h|
|00002390| 73 71 20 3d 20 76 61 6c | 68 20 2a 20 76 61 6c 68 |sq = val|h * valh|
|000023a0| 0d 09 09 46 4d 55 4c 2e | 58 09 46 50 37 2c 46 50 |...FMUL.|X.FP7,FP|
|000023b0| 37 09 09 09 09 09 09 3b | 0d 09 09 0d 09 09 46 4d |7......;|......FM|
|000023c0| 4f 56 45 2e 58 09 46 50 | 34 2c 46 50 36 09 09 09 |OVE.X.FP|4,FP6...|
|000023d0| 09 09 09 3b 20 76 73 71 | 20 3d 20 76 61 6c 76 20 |...; vsq| = valv |
|000023e0| 2a 20 76 61 6c 76 0d 09 | 09 46 4d 55 4c 2e 58 09 |* valv..|.FMUL.X.|
|000023f0| 46 50 36 2c 46 50 36 09 | 09 09 09 09 09 3b 0d 09 |FP6,FP6.|.....;..|
|00002400| 09 0d 09 09 46 4d 4f 56 | 45 2e 58 09 46 50 37 2c |....FMOV|E.X.FP7,|
|00002410| 46 50 31 0d 09 09 46 53 | 55 42 2e 58 09 46 50 36 |FP1...FS|UB.X.FP6|
|00002420| 2c 46 50 31 09 09 09 09 | 09 09 3b 20 74 65 6d 70 |,FP1....|..; temp|
|00002430| 20 3d 20 68 73 71 20 2d | 20 76 73 71 20 2b 20 73 | = hsq -| vsq + s|
|00002440| 65 65 64 76 0d 09 09 46 | 41 44 44 2e 58 09 73 65 |eedv...F|ADD.X.se|
|00002450| 65 64 68 28 41 36 29 2c | 46 50 31 09 09 09 09 3b |edh(A6),|FP1....;|
|00002460| 0d 09 09 0d 09 09 46 4d | 4f 56 45 2e 58 09 72 65 |......FM|OVE.X.re|
|00002470| 61 6c 32 28 41 36 29 2c | 46 50 30 09 09 09 09 3b |al2(A6),|FP0....;|
|00002480| 20 76 61 6c 76 20 3d 20 | 72 65 61 6c 32 2a 76 61 | valv = |real2*va|
|00002490| 6c 68 2a 76 61 6c 76 20 | 2b 20 73 65 65 64 76 0d |lh*valv |+ seedv.|
|000024a0| 09 09 46 4d 55 4c 2e 58 | 09 46 50 35 2c 46 50 30 |..FMUL.X|.FP5,FP0|
|000024b0| 09 09 09 09 09 09 3b 0d | 09 09 46 4d 55 4c 2e 58 |......;.|..FMUL.X|
|000024c0| 09 46 50 30 2c 46 50 34 | 09 09 09 09 09 09 3b 0d |.FP0,FP4|......;.|
|000024d0| 09 09 46 41 44 44 2e 58 | 09 73 65 65 64 76 28 41 |..FADD.X|.seedv(A|
|000024e0| 36 29 2c 46 50 34 09 09 | 09 09 3b 0d 09 09 0d 09 |6),FP4..|..;.....|
|000024f0| 09 46 4d 4f 56 45 2e 58 | 09 46 50 31 2c 46 50 35 |.FMOVE.X|.FP1,FP5|
|00002500| 09 09 09 09 09 09 3b 20 | 76 61 6c 68 20 3d 20 74 |......; |valh = t|
|00002510| 65 6d 70 0d 09 09 0d 09 | 09 41 44 44 51 2e 57 09 |emp.....|.ADDQ.W.|
|00002520| 23 31 2c 69 74 65 72 28 | 41 36 29 09 09 09 09 09 |#1,iter(|A6).....|
|00002530| 3b 20 2b 2b 69 74 65 72 | 0d 09 09 0d 09 09 46 4d |; ++iter|......FM|
|00002540| 4f 56 45 2e 58 09 46 50 | 37 2c 46 50 30 09 09 09 |OVE.X.FP|7,FP0...|
|00002550| 09 09 09 3b 20 77 68 69 | 6c 65 20 28 28 68 73 71 |...; whi|le ((hsq|
|00002560| 2b 76 73 71 3c 72 65 61 | 6c 31 30 30 29 20 26 26 |+vsq<rea|l100) &&|
|00002570| 20 28 69 74 65 72 3c 6c | 69 6d 69 74 29 29 0d 09 | (iter<l|imit))..|
|00002580| 09 46 41 44 44 2e 58 09 | 46 50 36 2c 46 50 30 09 |.FADD.X.|FP6,FP0.|
|00002590| 09 09 09 09 09 3b 0d 09 | 09 46 4d 4f 56 45 43 52 |.....;..|.FMOVECR|
|000025a0| 2e 58 20 23 24 33 34 2c | 46 50 31 09 09 09 09 09 |.X #$34,|FP1.....|
|000025b0| 3b 0d 09 09 46 43 4d 50 | 2e 58 09 46 50 30 2c 46 |;...FCMP|.X.FP0,F|
|000025c0| 50 31 09 09 09 09 09 09 | 3b 0d 09 09 46 42 4c 45 |P1......|;...FBLE|
|000025d0| 2e 57 09 40 33 35 30 09 | 09 09 09 09 09 3b 0d 09 |.W.@350.|.....;..|
|000025e0| 09 4d 4f 56 45 2e 57 09 | 6c 69 6d 69 74 28 41 36 |.MOVE.W.|limit(A6|
|000025f0| 29 2c 44 30 09 09 09 09 | 3b 0d 09 09 43 4d 50 2e |),D0....|;...CMP.|
|00002600| 57 09 69 74 65 72 28 41 | 36 29 2c 44 30 09 09 09 |W.iter(A|6),D0...|
|00002610| 09 09 3b 0d 09 09 42 47 | 45 09 09 40 33 30 30 09 |..;...BG|E..@300.|
|00002620| 09 09 09 09 09 3b 0d 0d | 40 33 35 30 0d 09 09 0d |.....;..|@350....|
|00002630| 09 09 4d 4f 56 45 2e 57 | 09 69 74 65 72 28 41 36 |..MOVE.W|.iter(A6|
|00002640| 29 2c 44 30 09 09 09 09 | 09 3b 20 50 65 6e 50 61 |),D0....|.; PenPa|
|00002650| 74 28 26 70 61 74 73 5b | 69 74 65 72 20 26 20 30 |t(&pats[|iter & 0|
|00002660| 78 30 33 5d 29 0d 09 09 | 41 4e 44 49 2e 57 09 23 |x03])...|ANDI.W.#|
|00002670| 33 2c 44 30 09 09 09 09 | 09 09 3b 0d 09 09 4d 55 |3,D0....|..;...MU|
|00002680| 4c 55 09 23 38 2c 44 30 | 09 09 09 09 09 09 3b 0d |LU.#8,D0|......;.|
|00002690| 09 09 4c 45 41 2e 4c 09 | 70 61 74 73 28 41 36 29 |..LEA.L.|pats(A6)|
|000026a0| 2c 41 30 09 09 09 09 09 | 3b 0d 09 09 41 44 44 41 |,A0.....|;...ADDA|
|000026b0| 2e 57 09 44 30 2c 41 30 | 09 09 09 09 09 09 3b 0d |.W.D0,A0|......;.|
|000026c0| 09 09 4d 4f 56 45 2e 4c | 09 41 30 2c 2d 28 53 50 |..MOVE.L|.A0,-(SP|
|000026d0| 29 09 09 09 09 09 3b 0d | 09 09 5f 50 65 6e 50 61 |).....;.|.._PenPa|
|000026e0| 74 09 09 09 09 09 09 09 | 09 3b 0d 09 09 0d 09 09 |t.......|.;......|
|000026f0| 50 45 41 2e 4c 09 72 28 | 41 36 29 09 09 09 09 09 |PEA.L.r(|A6).....|
|00002700| 09 3b 20 50 61 69 6e 74 | 52 65 63 74 28 26 72 29 |.; Paint|Rect(&r)|
|00002710| 0d 09 09 5f 50 61 69 6e | 74 52 65 63 74 09 09 09 |..._Pain|tRect...|
|00002720| 09 09 09 09 3b 0d 09 09 | 0d 09 09 4d 4f 56 45 2e |....;...|...MOVE.|
|00002730| 57 09 72 65 73 28 41 36 | 29 2c 44 30 09 09 09 09 |W.res(A6|),D0....|
|00002740| 09 3b 20 72 2e 6c 65 66 | 74 20 2b 3d 20 72 65 73 |.; r.lef|t += res|
|00002750| 0d 09 09 41 44 44 2e 57 | 09 44 30 2c 72 2b 32 28 |...ADD.W|.D0,r+2(|
|00002760| 41 36 29 09 09 09 09 09 | 3b 0d 09 09 0d 09 09 41 |A6).....|;......A|
|00002770| 44 44 2e 57 09 44 30 2c | 72 2b 36 28 41 36 29 09 |DD.W.D0,|r+6(A6).|
|00002780| 09 09 09 09 3b 20 72 2e | 72 69 67 68 74 20 2b 3d |....; r.|right +=|
|00002790| 20 72 65 73 0d 09 09 0d | 09 09 46 41 44 44 2e 58 | res....|..FADD.X|
|000027a0| 09 72 61 74 28 41 36 29 | 2c 46 50 33 09 09 09 09 |.rat(A6)|,FP3....|
|000027b0| 09 3b 20 62 61 73 65 68 | 20 2b 3d 20 72 61 74 0d |.; baseh| += rat.|
|000027c0| 09 09 0d 09 09 54 53 54 | 2e 57 09 6e 6f 6c 6f 63 |.....TST|.W.noloc|
|000027d0| 6b 28 41 36 29 09 09 09 | 09 09 3b 20 69 66 20 28 |k(A6)...|..; if (|
|000027e0| 6e 6f 6c 6f 63 6b 20 26 | 26 20 42 75 74 74 6f 6e |nolock &|& Button|
|000027f0| 28 29 29 20 72 65 74 75 | 72 6e 0d 09 09 42 45 51 |()) retu|rn...BEQ|
|00002800| 2e 53 09 40 34 32 35 09 | 09 09 09 09 09 3b 0d 09 |.S.@425.|.....;..|
|00002810| 09 43 4c 52 2e 57 09 2d | 28 53 50 29 09 09 09 09 |.CLR.W.-|(SP)....|
|00002820| 09 09 3b 0d 09 09 5f 42 | 75 74 74 6f 6e 09 09 09 |..;..._B|utton...|
|00002830| 09 09 09 09 09 3b 0d 09 | 09 54 53 54 2e 57 09 28 |.....;..|.TST.W.(|
|00002840| 53 50 29 2b 09 09 09 09 | 09 09 3b 0d 09 09 42 4e |SP)+....|..;...BN|
|00002850| 45 09 09 46 72 61 63 73 | 44 6f 6e 65 09 09 09 09 |E..Fracs|Done....|
|00002860| 09 3b 0d 40 34 32 35 0d | 09 09 0d 09 09 41 44 44 |.;.@425.|.....ADD|
|00002870| 51 2e 57 09 23 31 2c 6a | 28 41 36 29 09 09 09 09 |Q.W.#1,j|(A6)....|
|00002880| 09 3b 0d 09 09 42 52 41 | 09 09 40 32 35 30 09 09 |.;...BRA|..@250..|
|00002890| 09 09 09 09 3b 0d 0d 40 | 34 35 30 0d 0d 09 09 4d |....;..@|450....M|
|000028a0| 4f 56 45 2e 57 09 72 65 | 73 28 41 36 29 2c 44 30 |OVE.W.re|s(A6),D0|
|000028b0| 09 09 09 09 09 3b 20 72 | 2e 74 6f 70 20 2b 3d 20 |.....; r|.top += |
|000028c0| 72 65 73 0d 09 09 41 44 | 44 2e 57 09 44 30 2c 72 |res...AD|D.W.D0,r|
|000028d0| 28 41 36 29 09 09 09 09 | 09 3b 0d 09 09 0d 09 09 |(A6)....|.;......|
|000028e0| 41 44 44 2e 57 09 44 30 | 2c 72 2b 34 28 41 36 29 |ADD.W.D0|,r+4(A6)|
|000028f0| 09 09 09 09 09 3b 20 72 | 2e 62 6f 74 74 6f 6d 20 |.....; r|.bottom |
|00002900| 2b 3d 20 72 65 73 0d 09 | 09 0d 09 09 46 41 44 44 |+= res..|....FADD|
|00002910| 2e 58 09 72 61 74 28 41 | 36 29 2c 46 50 32 09 09 |.X.rat(A|6),FP2..|
|00002920| 09 09 09 3b 20 62 61 73 | 65 76 20 2b 3d 20 72 61 |...; bas|ev += ra|
|00002930| 74 0d 09 09 0d 09 09 41 | 44 44 51 2e 57 09 23 31 |t......A|DDQ.W.#1|
|00002940| 2c 69 28 41 36 29 09 09 | 09 09 09 3b 0d 09 09 42 |,i(A6)..|...;...B|
|00002950| 52 41 09 09 40 32 30 30 | 09 09 09 09 09 09 3b 0d |RA..@200|......;.|
|00002960| 0d 40 35 30 30 0d 46 72 | 61 63 73 44 6f 6e 65 0d |.@500.Fr|acsDone.|
|00002970| 09 09 4d 4f 56 45 4d 2e | 4c 09 28 53 50 29 2b 2c |..MOVEM.|L.(SP)+,|
|00002980| 41 30 2d 41 36 2f 44 30 | 2d 44 37 09 09 3b 20 72 |A0-A6/D0|-D7..; r|
|00002990| 65 73 74 6f 72 65 20 72 | 65 67 69 73 74 65 72 73 |estore r|egisters|
|000029a0| 0d 09 09 55 4e 4c 4b 09 | 41 36 0d 09 09 4d 4f 56 |...UNLK.|A6...MOV|
|000029b0| 45 2e 4c 09 28 53 50 29 | 2b 2c 28 53 50 29 0d 09 |E.L.(SP)|+,(SP)..|
|000029c0| 09 52 54 53 0d 0d 5a 65 | 72 6f 54 6f 4e 75 6d 0d |.RTS..Ze|roToNum.|
|000029d0| 09 09 4d 4f 56 45 2e 4c | 09 78 63 6d 64 42 6c 6f |..MOVE.L|.xcmdBlo|
|000029e0| 63 6b 41 64 64 72 28 41 | 36 29 2c 41 33 09 3b 20 |ckAddr(A|6),A3.; |
|000029f0| 78 63 6d 64 20 62 6c 6b | 20 70 74 72 0d 09 09 4d |xcmd blk| ptr...M|
|00002a00| 4f 56 45 2e 4c 09 38 28 | 53 50 29 2c 41 30 09 09 |OVE.L.8(|SP),A0..|
|00002a10| 09 09 3b 20 68 61 6e 64 | 6c 65 20 74 6f 20 6e 75 |..; hand|le to nu|
|00002a20| 6d 20 73 74 72 69 6e 67 | 0d 09 09 4d 4f 56 45 2e |m string|...MOVE.|
|00002a30| 4c 09 28 41 30 29 2c 58 | 43 6d 64 49 6e 41 72 67 |L.(A0),X|CmdInArg|
|00002a40| 73 28 41 33 29 09 09 3b | 20 70 74 72 20 74 6f 20 |s(A3)..;| ptr to |
|00002a50| 6e 75 6d 20 73 74 72 69 | 6e 67 0d 09 09 4c 45 41 |num stri|ng...LEA|
|00002a60| 2e 4c 09 74 65 6d 70 53 | 74 72 28 41 36 29 2c 41 |.L.tempS|tr(A6),A|
|00002a70| 30 09 09 09 3b 20 70 74 | 20 74 6f 20 74 65 6d 70 |0...; pt| to temp|
|00002a80| 20 73 74 72 69 6e 67 20 | 61 72 65 61 0d 09 09 4d | string |area...M|
|00002a90| 4f 56 45 2e 4c 09 41 30 | 2c 58 43 6d 64 49 6e 41 |OVE.L.A0|,XCmdInA|
|00002aa0| 72 67 73 2b 34 28 41 33 | 29 09 09 3b 20 73 65 74 |rgs+4(A3|)..; set|
|00002ab0| 20 74 65 6d 70 20 73 74 | 72 69 6e 67 20 70 74 72 | temp st|ring ptr|
|00002ac0| 0d 09 09 4d 4f 56 45 2e | 57 09 23 78 72 65 71 5a |...MOVE.|W.#xreqZ|
|00002ad0| 65 72 6f 54 6f 50 61 73 | 2c 58 43 6d 64 52 65 71 |eroToPas|,XCmdReq|
|00002ae0| 75 65 73 74 28 41 33 29 | 20 3b 20 63 6f 6e 76 65 |uest(A3)| ; conve|
|00002af0| 72 74 20 74 6f 20 70 61 | 73 63 61 6c 20 73 74 72 |rt to pa|scal str|
|00002b00| 69 6e 67 0d 09 09 4d 4f | 56 45 2e 4c 09 58 43 6d |ing...MO|VE.L.XCm|
|00002b10| 64 45 6e 74 72 79 50 6f | 69 6e 74 28 41 33 29 2c |dEntryPo|int(A3),|
|00002b20| 41 30 09 3b 20 67 65 74 | 20 65 6e 74 72 79 20 70 |A0.; get| entry p|
|00002b30| 6f 69 6e 74 20 61 64 64 | 72 0d 09 09 4a 53 52 09 |oint add|r...JSR.|
|00002b40| 09 28 41 30 29 09 09 09 | 09 09 3b 20 63 61 6c 6c |.(A0)...|..; call|
|00002b50| 20 48 43 0d 09 09 4c 45 | 41 2e 4c 09 74 65 6d 70 | HC...LE|A.L.temp|
|00002b60| 53 74 72 28 41 36 29 2c | 41 30 09 09 09 3b 20 70 |Str(A6),|A0...; p|
|00002b70| 74 20 74 6f 20 74 65 6d | 70 20 73 74 72 69 6e 67 |t to tem|p string|
|00002b80| 20 61 72 65 61 0d 09 09 | 4d 4f 56 45 2e 4c 09 41 | area...|MOVE.L.A|
|00002b90| 30 2c 58 43 6d 64 49 6e | 41 72 67 73 28 41 33 29 |0,XCmdIn|Args(A3)|
|00002ba0| 09 09 3b 20 73 65 74 20 | 66 69 72 73 74 20 61 72 |..; set |first ar|
|00002bb0| 67 0d 09 09 4d 4f 56 45 | 2e 57 09 23 78 72 65 71 |g...MOVE|.W.#xreq|
|00002bc0| 53 74 72 54 6f 4e 75 6d | 2c 58 43 6d 64 52 65 71 |StrToNum|,XCmdReq|
|00002bd0| 75 65 73 74 28 41 33 29 | 20 3b 20 73 65 74 20 72 |uest(A3)| ; set r|
|00002be0| 65 71 20 63 6f 64 65 0d | 09 09 4d 4f 56 45 2e 4c |eq code.|..MOVE.L|
|00002bf0| 09 58 43 6d 64 45 6e 74 | 72 79 50 6f 69 6e 74 28 |.XCmdEnt|ryPoint(|
|00002c00| 41 33 29 2c 41 30 09 3b | 20 67 65 74 20 65 6e 74 |A3),A0.;| get ent|
|00002c10| 72 79 20 70 6f 69 6e 74 | 20 61 64 64 72 0d 09 09 |ry point| addr...|
|00002c20| 4a 53 52 09 09 28 41 30 | 29 09 09 09 09 09 3b 20 |JSR..(A0|).....; |
|00002c30| 63 61 6c 6c 20 48 43 0d | 09 09 4d 4f 56 45 2e 4c |call HC.|..MOVE.L|
|00002c40| 09 34 28 53 50 29 2c 41 | 30 09 09 09 09 3b 20 70 |.4(SP),A|0....; p|
|00002c50| 74 72 20 74 6f 20 72 65 | 73 75 6c 74 20 66 69 65 |tr to re|sult fie|
|00002c60| 6c 64 0d 09 09 4d 4f 56 | 45 2e 4c 09 58 43 6d 64 |ld...MOV|E.L.XCmd|
|00002c70| 4f 75 74 41 72 67 73 28 | 41 33 29 2c 28 41 30 29 |OutArgs(|A3),(A0)|
|00002c80| 09 3b 20 73 65 74 20 72 | 65 73 75 6c 74 0d 09 09 |.; set r|esult...|
|00002c90| 52 54 53 09 09 09 09 09 | 09 09 09 3b 0d 0d 5a 65 |RTS.....|...;..Ze|
|00002ca0| 72 6f 54 6f 45 78 74 0d | 09 09 4d 4f 56 45 2e 4c |roToExt.|..MOVE.L|
|00002cb0| 09 78 63 6d 64 42 6c 6f | 63 6b 41 64 64 72 28 41 |.xcmdBlo|ckAddr(A|
|00002cc0| 36 29 2c 41 33 09 3b 20 | 78 63 6d 64 20 62 6c 6b |6),A3.; |xcmd blk|
|00002cd0| 20 70 74 72 0d 09 09 4d | 4f 56 45 2e 4c 09 38 28 | ptr...M|OVE.L.8(|
|00002ce0| 53 50 29 2c 41 30 09 09 | 09 09 3b 20 68 61 6e 64 |SP),A0..|..; hand|
|00002cf0| 6c 65 20 74 6f 20 6e 75 | 6d 20 73 74 72 69 6e 67 |le to nu|m string|
|00002d00| 0d 09 09 4d 4f 56 45 2e | 4c 09 28 41 30 29 2c 58 |...MOVE.|L.(A0),X|
|00002d10| 43 6d 64 49 6e 41 72 67 | 73 28 41 33 29 09 09 3b |CmdInArg|s(A3)..;|
|00002d20| 20 70 74 72 20 74 6f 20 | 6e 75 6d 20 73 74 72 69 | ptr to |num stri|
|00002d30| 6e 67 0d 09 09 4c 45 41 | 2e 4c 09 74 65 6d 70 53 |ng...LEA|.L.tempS|
|00002d40| 74 72 28 41 36 29 2c 41 | 30 09 09 09 3b 20 70 74 |tr(A6),A|0...; pt|
|00002d50| 20 74 6f 20 74 65 6d 70 | 20 73 74 72 69 6e 67 20 | to temp| string |
|00002d60| 61 72 65 61 0d 09 09 4d | 4f 56 45 2e 4c 09 41 30 |area...M|OVE.L.A0|
|00002d70| 2c 58 43 6d 64 49 6e 41 | 72 67 73 2b 34 28 41 33 |,XCmdInA|rgs+4(A3|
|00002d80| 29 09 09 3b 20 73 65 74 | 20 74 65 6d 70 20 73 74 |)..; set| temp st|
|00002d90| 72 69 6e 67 20 70 74 72 | 0d 09 09 4d 4f 56 45 2e |ring ptr|...MOVE.|
|00002da0| 57 09 23 78 72 65 71 5a | 65 72 6f 54 6f 50 61 73 |W.#xreqZ|eroToPas|
|00002db0| 2c 58 43 6d 64 52 65 71 | 75 65 73 74 28 41 33 29 |,XCmdReq|uest(A3)|
|00002dc0| 20 3b 20 63 6f 6e 76 65 | 72 74 20 74 6f 20 70 61 | ; conve|rt to pa|
|00002dd0| 73 63 61 6c 20 73 74 72 | 69 6e 67 0d 09 09 4d 4f |scal str|ing...MO|
|00002de0| 56 45 2e 4c 09 58 43 6d | 64 45 6e 74 72 79 50 6f |VE.L.XCm|dEntryPo|
|00002df0| 69 6e 74 28 41 33 29 2c | 41 30 09 3b 20 67 65 74 |int(A3),|A0.; get|
|00002e00| 20 65 6e 74 72 79 20 70 | 6f 69 6e 74 20 61 64 64 | entry p|oint add|
|00002e10| 72 0d 09 09 4a 53 52 09 | 09 28 41 30 29 09 09 09 |r...JSR.|.(A0)...|
|00002e20| 09 09 3b 20 63 61 6c 6c | 20 48 43 0d 09 09 4c 45 |..; call| HC...LE|
|00002e30| 41 2e 4c 09 74 65 6d 70 | 53 74 72 28 41 36 29 2c |A.L.temp|Str(A6),|
|00002e40| 41 30 09 09 09 3b 20 70 | 74 20 74 6f 20 74 65 6d |A0...; p|t to tem|
|00002e50| 70 20 73 74 72 69 6e 67 | 20 61 72 65 61 0d 09 09 |p string| area...|
|00002e60| 4d 4f 56 45 2e 4c 09 41 | 30 2c 58 43 6d 64 49 6e |MOVE.L.A|0,XCmdIn|
|00002e70| 41 72 67 73 28 41 33 29 | 09 09 3b 20 73 65 74 20 |Args(A3)|..; set |
|00002e80| 66 69 72 73 74 20 61 72 | 67 0d 09 09 4c 45 41 2e |first ar|g...LEA.|
|00002e90| 4c 09 74 65 6d 70 58 28 | 41 36 29 2c 41 30 09 09 |L.tempX(|A6),A0..|
|00002ea0| 09 3b 20 70 74 20 74 6f | 20 74 65 6d 70 20 73 74 |.; pt to| temp st|
|00002eb0| 72 69 6e 67 20 61 72 65 | 61 0d 09 09 4d 4f 56 45 |ring are|a...MOVE|
|00002ec0| 2e 4c 09 41 30 2c 58 43 | 6d 64 49 6e 41 72 67 73 |.L.A0,XC|mdInArgs|
|00002ed0| 2b 34 28 41 33 29 09 09 | 3b 20 73 65 74 20 66 69 |+4(A3)..|; set fi|
|00002ee0| 72 73 74 20 61 72 67 0d | 09 09 4d 4f 56 45 2e 57 |rst arg.|..MOVE.W|
|00002ef0| 09 23 78 72 65 71 53 74 | 72 54 6f 45 78 74 2c 58 |.#xreqSt|rToExt,X|
|00002f00| 43 6d 64 52 65 71 75 65 | 73 74 28 41 33 29 20 3b |CmdReque|st(A3) ;|
|00002f10| 20 73 65 74 20 72 65 71 | 20 63 6f 64 65 0d 09 09 | set req| code...|
|00002f20| 4d 4f 56 45 2e 4c 09 58 | 43 6d 64 45 6e 74 72 79 |MOVE.L.X|CmdEntry|
|00002f30| 50 6f 69 6e 74 28 41 33 | 29 2c 41 30 09 3b 20 67 |Point(A3|),A0.; g|
|00002f40| 65 74 20 65 6e 74 72 79 | 20 70 6f 69 6e 74 20 61 |et entry| point a|
|00002f50| 64 64 72 0d 09 09 4a 53 | 52 09 09 28 41 30 29 09 |ddr...JS|R..(A0).|
|00002f60| 09 09 09 09 3b 20 63 61 | 6c 6c 20 48 43 0d 09 09 |....; ca|ll HC...|
|00002f70| 4d 4f 56 45 2e 4c 09 34 | 28 53 50 29 2c 41 30 09 |MOVE.L.4|(SP),A0.|
|00002f80| 09 09 09 3b 20 70 74 72 | 20 74 6f 20 72 65 73 75 |...; ptr| to resu|
|00002f90| 6c 74 20 66 69 65 6c 64 | 0d 09 09 4d 4f 56 45 2e |lt field|...MOVE.|
|00002fa0| 57 09 74 65 6d 70 58 28 | 41 36 29 2c 28 41 30 29 |W.tempX(|A6),(A0)|
|00002fb0| 2b 09 09 09 3b 20 73 65 | 74 20 72 65 73 75 6c 74 |+...; se|t result|
|00002fc0| 0d 09 09 43 4c 52 2e 57 | 09 28 41 30 29 2b 09 09 |...CLR.W|.(A0)+..|
|00002fd0| 09 09 09 3b 20 66 69 6c | 6c 20 69 6e 20 74 68 65 |...; fil|l in the|
|00002fe0| 20 7a 65 72 6f 73 0d 09 | 09 4d 4f 56 45 2e 4c 09 | zeros..|.MOVE.L.|
|00002ff0| 74 65 6d 70 58 2b 32 28 | 41 36 29 2c 28 41 30 29 |tempX+2(|A6),(A0)|
|00003000| 2b 09 09 3b 20 73 65 74 | 20 72 65 73 75 6c 74 0d |+..; set| result.|
|00003010| 09 09 4d 4f 56 45 2e 4c | 09 74 65 6d 70 58 2b 36 |..MOVE.L|.tempX+6|
|00003020| 28 41 36 29 2c 28 41 30 | 29 2b 09 09 3b 20 73 65 |(A6),(A0|)+..; se|
|00003030| 74 20 72 65 73 75 6c 74 | 0d 09 09 52 54 53 09 09 |t result|...RTS..|
|00003040| 09 09 09 09 09 09 3b 0d | 0d 0d 09 09 09 45 4e 44 |......;.|.....END|
|00003050| 57 49 54 48 0d 09 09 09 | 45 4e 44 4d 41 49 4e 0d |WITH....|ENDMAIN.|
|00003060| 09 09 09 45 4e 44 0d 0d | 00 00 00 00 00 00 00 00 |...END..|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00003090| d1 c0 03 e9 cd 8e 24 b9 | 65 7d bb 40 07 f0 9a 36 |......$.|e}.@...6|
|000030a0| 70 9d 4b 18 36 00 04 3f | ff 98 d3 1e ae 2a fa 5d |p.K.6..?|.....*.]|
|000030b0| 0a 66 72 61 63 74 61 6c | 32 2e 61 2d 02 00 00 00 |.fractal|2.a-....|
|000030c0| 54 45 58 54 4d 50 53 20 | 01 00 00 00 00 80 00 00 |TEXTMPS |........|
|000030d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 80 |..TEXTMP|S ......|
|000030e0| 00 00 35 9e 00 00 00 00 | 00 00 00 00 00 00 00 00 |..5.....|........|
|000030f0| 00 00 9d 8e 82 af 00 00 | 2f e8 00 00 01 7e 38 dd |........|/....~8.|
|00003100| f5 d9 45 00 00 00 00 00 | 00 00 00 00 00 00 00 07 |..E.....|........|
|00003110| 04 60 0a 00 00 50 41 43 | 4b 00 06 00 82 41 fa ff |.`...PAC|K....A..|
|00003120| f2 a1 28 12 10 4a 78 02 | 8e 6b 04 a0 69 12 00 a0 |..(..Jx.|.k..i...|
|00003130| 29 20 5f 30 1f 2f 08 41 | fa 00 08 d0 f0 00 00 4e |) _0./.A|.......N|
|00003140| d0 00 d4 02 3c 02 ec 03 | 1c 03 9c 04 28 04 1e 02 |....<...|....(...|
|00003150| 14 02 cc 04 10 41 fa ff | ba a1 28 a0 2a 4e 75 50 |.....A..|..(.*NuP|
|00003160| c1 06 40 27 10 60 08 4a | 01 67 04 06 40 00 64 48 |..@'.`.J|.g..@.dH|
|00003170| c0 48 e7 40 80 41 ee ff | e4 42 67 a9 ee 4c df 01 |.H.@.A..|.Bg..L..|
|00003180| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 31 01 ff |...H..Mo|naco.1..|
|00003190| 00 31 02 50 00 51 00 1b | 00 51 00 23 00 51 01 ff |.1.P.Q..|.Q.#.Q..|
|000031a0| 00 51 02 50 01 5f 00 06 | 00 04 00 74 00 0c 01 c3 |.Q.P._..|...t....|
|000031b0| 02 35 00 74 00 0c 01 c3 | 02 35 9d b4 9e 3d 00 00 |.5.t....|.5...=..|
|000031c0| 05 bc 00 00 05 bc 00 00 | 03 b7 01 00 00 00 01 00 |........|........|
|000031d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 01 9f 14 |...L...L|...2....|
|000031e0| 02 f2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000031f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 02 a1 04 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+